1! { dg-do run }
2program foo
3   block
4      use, intrinsic :: ISO_FORTRAN_ENV, only: wp => REAL32, ik => INT32
5      if (ik /= 4) stop 1
6      if (wp /= 4) stop 2
7   end block
8   block
9      use, intrinsic :: ISO_FORTRAN_ENV, only: wp => REAL64, ik => INT64
10      if (ik /= 8) stop 3
11      if (wp /= 8) stop 4
12   end block
13end program foo
14