1! { dg-do run } 2subroutine 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 8end 9 10subroutine 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) STOP 1 15end 16 17subroutine 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) STOP 2 22end 23 24program test 25 integer :: x, y 26 call foo1(x,y) 27 call foo2(x,y) 28 call foo3(x,y) 29end 30