gcc/testsuite/gfortran.dg/module_double_reuse.f90

   1 ! { dg-do run }
   2 ! Test of fix for PR18878
   3 !
   4 ! Based on example in PR by Steve Kargl
   5 !
   6 module a
   7   integer, parameter :: b = kind(1.d0)
   8   real(b)            :: z
   9 end module a
  10 program d
  11   use a, only : e => b, f => b, u => z, v => z
  12   real(e) x
  13   real(f) y
  14   x = 1.e0_e
  15   y = 1.e0_f
  16   u = 99.0
  17   if (kind(x).ne.kind(y)) call abort ()
  18   if (v.ne.u) call abort ()
  19 end program d