1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/module_double_reuse.f90 b/gcc/testsuite/gfortran.dg/module_double_reuse.f90
new file mode 100644
index 000000000..694e821b7
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/module_double_reuse.f90
@@ -0,0 +1,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" } }