bar.F90 243 Bytes
Newer Older
Lorenz Hüdepohl's avatar
Lorenz Hüdepohl committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
module bar
  implicit none
  contains
  function two() result(t)
    integer :: t
    t = 2
  end function
end module

#ifdef PROGRAM_test_bar
program test_bar
  use bar, only : two
  if (two() /= 2) then
    stop 1
  endif
end program
#endif