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
