[patch,fortran] Allow namelist with internal file (PR 28224)

[Tobias Burnus]

Hello,

Tobias Burnus wrote:
> Bootstrapped and regression tested on x86_64-unknown-linux-gnu (4.3.0
> 20061026).
>   

> +++ gcc/testsuite/gfortran.dg/namelist_internal2.f90	2006-10-26 01:00:40.000000000 +0200
> @@ -0,0 +1,22 @@
> +! { dg-do compile }
> +! { dg-options "-fall-intrinsics -std=f95" }
> +  write(str,nml=nam) ! { dg-error "Internal file at (1) is incompatible with namelist"}
> +  read(str,nml=nam) ! { dg-error "Internal file at (1) is incompatible with namelist"}
>   

I now do get the following error with "make -k check". I frankly have no
idea why and how it should work as gfortran gives the right error
message. If someone, who knows dejagnu, could enlighten me, what I do wrong?
(I really wonder why I didn't see this failure yesterday.)

Tobias

------------------------------
Executing on host:
/projects/tob/gcc/host-x86_64-unknown-linux-gnu/gcc/testsuite/gfortran/../../gfortran
-B/projects/tob/gcc/host-x
86_64-unknown-linux-gnu/gcc/testsuite/gfortran/../../
/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/namelist_internal2.f90   -O
 -fall-intrinsics -std=f95 -S  -o namelist_internal2.s    (timeout = 300)
 In file
/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/namelist_internal2.f90:16

  write(str,nml=nam) ! { dg-error "Internal file at (1) is incompatible
with na
       1
Error: Internal file at (1) is incompatible with namelist
 In file
/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/namelist_internal2.f90:20

  read(str,nml=nam) ! { dg-error "Internal file at (1) is incompatible
with nam
      1
Error: Internal file at (1) is incompatible with namelist
compiler exited with status 1
output is:
 In file
/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/namelist_internal2.f90:16

  write(str,nml=nam) ! { dg-error "Internal file at (1) is incompatible
with na
       1
Error: Internal file at (1) is incompatible with namelist
 In file
/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/namelist_internal2.f90:20

  read(str,nml=nam) ! { dg-error "Internal file at (1) is incompatible
with nam
      1
Error: Internal file at (1) is incompatible with namelist

FAIL: gfortran.dg/namelist_internal2.f90  -O  (test for excess errors)
Excess errors:
/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/namelist_internal2.f90:16:
Error: Internal file at (1) is incompatible with namelist
/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/namelist_internal2.f90:20:
Error: Internal file at (1) is incompatible with namelist
------------------------------