codekingpro/portable-devtools

1! Check that parameters are correct intercepted.
2! Constants with comma separations are commonly
3! used, for instance Pi = 3._dp
4subroutine foo_single(x)
5  implicit none
6  integer, parameter :: rp = selected_real_kind(6)
7  real(rp), intent(inout) :: x
8  dimension x(3)
9  real(rp), parameter :: three = 3._rp
10  x(1) = x(1) + x(2) + x(3) * three
11  return
12end subroutine
13
14subroutine foo_double(x)
15  implicit none
16  integer, parameter :: rp = selected_real_kind(15)
17  real(rp), intent(inout) :: x
18  dimension x(3)
19  real(rp), parameter :: three = 3._rp
20  x(1) = x(1) + x(2) + x(3) * three
21  return
22end subroutine
23
24