URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_44.f90] - Rev 581
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
!
! PR fortran/34530
!
! Skipping over comment line was not working
!
! Test case contributed by Harald Anlauf.
!
program gfcbug77
implicit none
character(len=128) :: file = ""
logical :: default
namelist /BLACKLIST/ file, default
integer, parameter :: nnml = 10
default = .true.
open (nnml, file='gfcbug77.nml')
write(nnml,*) "&blacklist " ! The trailing space breaks gfortran
write(nnml,*) " ! This is a comment within the namelist"
write(nnml,*) " file = 'myfile'"
write(nnml,*) " default = F"
write(nnml,*) "/"
rewind(nnml)
read (nnml, nml=BLACKLIST)
close(nnml,status="delete")
if(file /= "myfile" .or. default) call abort()
! write (*,nml=BLACKLIST)
end program gfcbug77
Go to most recent revision | Compare with Previous | Blame | View Log