| ! { 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 |