[AArch64] Merge stores of D-register values with different modes
[official-gcc.git] / gcc / testsuite / gfortran.dg / namelist_44.f90
blobbfb2563adbd1b9884cb32e45eb336389807c00ba
1 ! { dg-do run }
3 ! PR fortran/34530
5 ! Skipping over comment line was not working
7 ! Test case contributed by Harald Anlauf.
9 program gfcbug77
10 implicit none
12 character(len=128) :: file = ""
13 logical :: default
14 namelist /BLACKLIST/ file, default
15 integer, parameter :: nnml = 10
16 default = .true.
18 open (nnml, file='gfcbug77.nml')
19 write(nnml,*) "&blacklist " ! The trailing space breaks gfortran
20 write(nnml,*) " ! This is a comment within the namelist"
21 write(nnml,*) " file = 'myfile'"
22 write(nnml,*) " default = F"
23 write(nnml,*) "/"
24 rewind(nnml)
25 read (nnml, nml=BLACKLIST)
26 close(nnml,status="delete")
27 if(file /= "myfile" .or. default) STOP 1
28 ! write (*,nml=BLACKLIST)
29 end program gfcbug77