gcc/testsuite/gfortran.dg/initialization_29.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/38718
   4 !
   5   implicit none
   6   real(kind=8), parameter :: r = kind(0) + 0.2
   7   complex(kind=8), parameter :: c = (r, -9.3)
   8   integer, parameter :: k = nint(dreal(c))
   9   integer, parameter :: l = nint(realpart(c))
  10   integer(kind=k) :: i
  11   integer(kind=l) :: j
  12   i = 42
  13   j = 42
  14   print *, k, i, j, r
  15   end