2 ! { dg-options "-fall-intrinsics -std=f2003" }
3 ! Checks internal file read/write of namelists
4 ! (Fortran 2003 feature)
10 character(len=250) :: str
20 if(i /= 42 .or. j /= -718 .or. abs(r-exp(1.0)) > 1e-5) call abort()
21 end program nml_internal