OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_52.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR36582 Namelist I/O error: Bogus "Cannot match namelist object"
3
! Test case derived from PR.
4
module mod1
5
 
6
type screen_io_type
7
integer :: begin
8
end type screen_io_type
9
 
10
type adjoint_type
11
type(screen_io_type) :: screen_io_fs_ntime
12
character(12) :: solver_type
13
end type adjoint_type
14
 
15
type(adjoint_type) :: adjoint
16
namelist/info_adjoint/adjoint
17
 
18
end module mod1
19
 
20
program gfortran_error_2
21
use mod1
22
adjoint%solver_type = "abcdefghijkl"
23
open(31,status='scratch')
24
write(31, '(a)') "&info_adjoint"
25
write(31, '(a)') "adjoint%solver_type = 'direct'"
26
write(31, '(a)') "adjoint%screen_io_fs_ntime%begin = 42"
27
write(31, '(a)') "/"
28
rewind(31)
29
read(31,nml=info_adjoint)
30
if (adjoint%solver_type /= 'direct') call abort
31
if (adjoint%screen_io_fs_ntime%begin /= 42) call abort
32
end program gfortran_error_2
33
 
34
! { dg-final { cleanup-modules "mod1" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.