gcc/testsuite/gfortran.dg/iso_fortran_env_3.f90

   1 ! { dg-do run }
   2 subroutine foo1 (x,y)
   3   use iso_fortran_env
   4   integer, intent(out) :: x, y
   5
   6   x = numeric_storage_size
   7   y = character_storage_size
   8 end
   9
  10 subroutine foo2 (x,y)
  11   use iso_fortran_env, foo => numeric_storage_size
  12   integer, intent(in) :: x, y
  13
  14   if (foo /= x .or. character_storage_size /= y) call abort
  15 end
  16
  17 subroutine foo3 (x,y)
  18   use iso_fortran_env, only : numeric_storage_size, character_storage_size
  19   integer, intent(in) :: x, y
  20
  21   if (numeric_storage_size /= x .or. character_storage_size /= y) call abort
  22 end
  23
  24 program test
  25   integer :: x, y
  26   call foo1(x,y)
  27   call foo2(x,y)
  28   call foo3(x,y)
  29 end