1! { dg-do run } 2! { dg-options "-fall-intrinsics -std=f2003" } 3! Checks internal file read/write of namelists 4! (Fortran 2003 feature) 5! PR fortran/28224 6program nml_internal 7 integer :: i, j 8 real :: r 9 namelist /nam/ i, j, r 10 character(len=250) :: str 11 12 i = 42 13 j = -718 14 r = exp(1.0) 15 write(str,nml=nam) 16 i = -33 17 j = 10 18 r = sin(1.0) 19 read(str,nml=nam) 20 if(i /= 42 .or. j /= -718 .or. abs(r-exp(1.0)) > 1e-5) call abort() 21end program nml_internal 22