summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/compile/contained_1.f90
blob: 60f31092e730cb78a2d5e13ed8b52aac5dad616e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
! 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