[Bug fortran/55959] [OOP] ICE in in gfc_simplify_expr, at fortran/expr.c:1920

[janus at gcc dot gnu.org]

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

--- Comment #1 from janus at gcc dot gnu.org 2013-01-13 09:58:49 UTC ---
Reduced test case:

module pdfs
  type :: pdf
  contains
    procedure, nopass :: getx
  end type pdf

contains

  real function getx()
  end function

end module pdfs

program abstract
  use pdfs
  type(pdf) pp
  print pp%getx()
end program


When changing the print line into

  print getx()

the ICE turns into the correct error message:

  print getx()
       1
Error: FORMAT tag at (1) must be of type default-kind CHARACTER or of INTEGER