30 lines
618 B
Fortran
30 lines
618 B
Fortran
! { 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
|