fsrc.f90 (610B)
1 module example_mod 2 use basetypes 3 implicit none 4 5 ! uses the kind defined in basetypes. 6 integer(kind=int_kind) :: an_int 7 8 ! Useless example to demonstrate that arg_kind is set to a compile-time 9 ! expression; the expression could be arbitrary, and would yield different 10 ! values for different compilers. 11 integer, parameter :: arg_kind = kind(an_int) 12 13 contains 14 15 subroutine sub1(a, b, c, d) 16 implicit none 17 integer(kind=arg_kind), intent(inout) :: a,b,c,d 18 19 a = 1 20 b = 2 21 c = 3 22 d = 4 23 end subroutine sub1 24 25 end module example_mod