[Bug fortran/32760] [4.3 Regression] Error defining subroutine named PRINT

["burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #25 from burnus at gcc dot gnu dot org  2008-01-24 15:09 -------
> i.e. a ')' or a ','.  I think for "istat = ..." the flavor is not needed. What
> do you think were it will break now?

Answer: The following. I still wonder whether one should not check it in as
interim solution for 4.3.0. The following program is presumably a valid Fortran
2003 program (without the ",source=t" it is valid F95), but the "integer,"
makes problems with my patch above; on the other hand it is needed for the
check in allocate. I wonder how other compilers such as NAG f95 or g95 solve
this problem.


module m
  public :: integer
  private :: istat
contains
  subroutine foo
    integer, allocatable :: s(:), t(:)
    allocate(t(5))
    allocate(s(4), stat=istat, source=t)
  end subroutine foo
  subroutine integer()
  end subroutine integer
end module m


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32760