[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable
[official-gcc.git] / gcc / testsuite / gfortran.dg / namelist_53.f90
blob9e5692abe6aa6f38a9358a8597afbe2045db2f31
1 ! { dg-do run }
2 ! PR36895 Namelist writing to internal files
3 character(30) :: line
4 namelist /stuff/ n
5 n = 123
6 line = ""
7 write(line,nml=stuff)
8 if (line.ne."&STUFF N=123 , /") print *, line
9 end