| ! { dg-do run } | |
| program test | |
| implicit none | |
| integer :: error | |
| logical, dimension(3,3) :: flc,flp | |
| namelist/inputdata/flc, flp | |
| flc = .false. | |
| flp = .false. | |
| open(10, file="inputfile") | |
| write(10,*) "&INPUTDATA" | |
| write(10,*) " FLC = T, " | |
| write(10,*) " FLP(1,2) = T," | |
| write(10,*) "/" | |
| rewind(10) | |
| !write(*, nml=inputdata) | |
| !open(10,file="inputfile") | |
| read(10,inputdata,iostat=error) | |
| close(10, status='delete') | |
| if (error /= 0) stop 20 | |
| end program test |