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