aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/ieee/pr77372.f90
blob: 8609d1654e362201c1f3709b5c0f2f964c121e1b (plain)
1
2
3
4
5
6
7
! { dg-do compile }
program p
   use ieee_arithmetic
   real(kind=ieee_selected_real_kind(10_1)) :: z1
   real(kind=ieee_selected_real_kind(10_2)) :: z2
   real(kind=ieee_selected_real_kind(10_4)) :: z4
end