gcc/testsuite/gfortran.dg/module_double_reuse.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! Test of fix for PR18878
!
! Based on example in PR by Steve Kargl
!
module a
  integer, parameter :: b = kind(1.d0)
  real(b)            :: z
end module a
program d
  use a, only : e => b, f => b, u => z, v => z
  real(e) x
  real(f) y
  x = 1.e0_e
  y = 1.e0_f
  u = 99.0
  if (kind(x).ne.kind(y)) call abort ()
  if (v.ne.u) call abort ()
end program d

! { dg-final { cleanup-modules "a" } }