gcc/testsuite/gfortran.dg/module_double_reuse.f90

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