Na}{

File Content: `constant_integer.f90`

! Check that parameters are correct intercepted.
! Constants with comma separations are commonly
! used, for instance Pi = 3._dp
subroutine foo_int(x)
  implicit none
  integer, parameter :: ii = selected_int_kind(9)
  integer(ii), intent(inout) :: x
  dimension x(3)
  integer(ii), parameter :: three = 3_ii
  x(1) = x(1) + x(2) + x(3) * three
  return
end subroutine

subroutine foo_long(x)
  implicit none
  integer, parameter :: ii = selected_int_kind(18)
  integer(ii), intent(inout) :: x
  dimension x(3)
  integer(ii), parameter :: three = 3_ii
  x(1) = x(1) + x(2) + x(3) * three
  return
end subroutine

Name	Size	Permission
constant_both.f90	1939 bytes	0644
constant_compound.f90	469 bytes	0644
constant_integer.f90	612 bytes	0644
constant_non_compound.f90	609 bytes	0644
constant_real.f90	610 bytes	0644

File Content: constant_integer.f90

File Content: `constant_integer.f90`