10 lines
213 B
Fortran
10 lines
213 B
Fortran
|
! { dg-do run }
|
||
|
! PR36895 Namelist writing to internal files
|
||
|
character(30) :: line
|
||
|
namelist /stuff/ n
|
||
|
n = 123
|
||
|
line = ""
|
||
|
write(line,nml=stuff)
|
||
|
if (line.ne."&STUFF N= 123, /") call abort
|
||
|
end
|