1! { dg-do run }
2program foo
3   block
4      use, intrinsic :: iso_c_binding, only: wp => c_float, ik => c_int
5      if (ik /= 4) stop 1
6      if (wp /= 4) stop 2
7   end block
8   block
9      use, intrinsic :: iso_c_binding, only: wp => c_double, ik => c_int64_t
10      if (ik /= 8) stop 3
11      if (wp /= 8) stop 4
12   end block
13end program foo
14
15