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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! PR36676 Namelist comment problems
! test case from PR, reduced by Jerry DeLisle  
program mem_nml
    implicit none
    integer, save :: nxc
    nxc = 0
    call readNamelist()
contains
subroutine readNamelist()
implicit none
namelist /INPUT/    nxc
open(unit = 101, status="scratch")
write(101,'(a)')"&INPUT"
write(101,'(a)')""
write(101,'(a)')"!"
write(101,'(a)')"!"
write(101,'(a)')"!"
write(101,'(a)')"nxc = 100"
write(101,'(a)')"&END"
rewind(101)
read(unit = 101, nml = INPUT)
if (nxc /= 100) call abort
close(unit = 101)
endsubroutine
end program mem_nml
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR36676 Namelist comment problems`
3			`! test case from PR, reduced by Jerry DeLisle`
4			`program mem_nml`
5			`implicit none`
6			`integer, save :: nxc`
7			`nxc = 0`
8			`call readNamelist()`
9			`contains`
10			`subroutine readNamelist()`
11			`implicit none`
12			`namelist /INPUT/ nxc`
13			`open(unit = 101, status="scratch")`
14			`write(101,'(a)')"&INPUT"`
15			`write(101,'(a)')""`
16			`write(101,'(a)')"!"`
17			`write(101,'(a)')"!"`
18			`write(101,'(a)')"!"`
19			`write(101,'(a)')"nxc = 100"`
20			`write(101,'(a)')"&END"`
21			`rewind(101)`
22			`read(unit = 101, nml = INPUT)`
23			`if (nxc /= 100) call abort`
24			`close(unit = 101)`
25			`endsubroutine`
26			`end program mem_nml`
27

Browse

Tools

Subversion Repositories openrisc

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