baz.F90 269 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
18
module baz
  use bar
  implicit none
  contains
  function two_times_two() result(t)
    integer :: t
    t = 2 * two()
  end function
end module

#ifdef PROGRAM_test_baz
program test_bar
  use baz
  if (two_times_two() /= 4) then
    stop 1
  endif
end program
#endif