support_for_assumed_type.F90 Source File


Source Code

subroutine foo(x)
   type(*) :: x(*)
end subroutine foo
program main
end program main