ifort (IFORT) 12.1.3 20120212
[fortran]module m1
contains
subroutine f(val)
class(*), optional :: val
end subroutine f
end module m1
module m2
use m1
contains
function g() result(p)
class(*), pointer :: p
allocate(real::p)
call f()
end function g
end module m2
program p
use m2
class(*), pointer :: ptr
ptr => g()
end program p
[/fortran]
compiling with
$ifort -stand f08 bug3.f90
results in
bug3.f90(21): error #6404: This name does not have a type, and must have an explicit type. [#UNLPOLY]
ptr => g()
^
bug3.f90(23): catastrophic error: Internal Compiler Error: possible out of order or missing USE
compilation aborted for bug3.f90 (code 1)
