14 lines
338 B
Fortran
14 lines
338 B
Fortran
! { dg-do run }
|
|
program foo
|
|
block
|
|
use, intrinsic :: ISO_FORTRAN_ENV, only: wp => REAL32, ik => INT32
|
|
if (ik /= 4) stop 1
|
|
if (wp /= 4) stop 2
|
|
end block
|
|
block
|
|
use, intrinsic :: ISO_FORTRAN_ENV, only: wp => REAL64, ik => INT64
|
|
if (ik /= 8) stop 3
|
|
if (wp /= 8) stop 4
|
|
end block
|
|
end program foo
|