[Bug fortran/32047] ICE (segfault) for pure function without argument

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

------- Comment #1 from burnus at gcc dot gnu dot org  2007-05-22 19:28 -------
Same error, but now for a valid program. Compiles and runs with NAG f95, g95
and ifort.

module test1
  implicit none
contains
  character(f()) function test2() result(r)
    interface
      pure function f()
        integer f
      end function f
    end interface
    r = '1'
  end function test2
end module test1

pure function f()
  integer :: f
  f = 1
end function f

program test
  use test1
  implicit none
  if(test2() /= '1') stop 'Error'
end program test


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|ice-on-invalid-code         |ice-on-valid-code


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