contained_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 16 行

! Obscure failure that disappeared when the parameter was removed.
! Works OK now.
module mymod
implicit none
contains
   subroutine test(i)
      implicit none
      integer i
   end subroutine
end module mymod

program error
   use mymod
end program