summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/iso_fortran_env_3.f90
blob: a90315958a90e96ec45236fcc18f1e5cd46577c3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
! { dg-do run }
subroutine foo1 (x,y)
  use iso_fortran_env
  integer, intent(out) :: x, y

  x = numeric_storage_size
  y = character_storage_size
end

subroutine foo2 (x,y)
  use iso_fortran_env, foo => numeric_storage_size
  integer, intent(in) :: x, y

  if (foo /= x .or. character_storage_size /= y) call abort
end

subroutine foo3 (x,y)
  use iso_fortran_env, only : numeric_storage_size, character_storage_size
  integer, intent(in) :: x, y

  if (numeric_storage_size /= x .or. character_storage_size /= y) call abort
end

program test
  integer :: x, y
  call foo1(x,y)
  call foo2(x,y)
  call foo3(x,y)
end