From f190d6284359da8ae8694b2d2e14b01602a959ed Mon Sep 17 00:00:00 2001
From: Andrew Hsieh <andrewhsieh@google.com>
Date: Wed, 18 Jun 2014 13:00:04 -0700
Subject: Merge GCC 4.8.3

Change-Id: I0abe59f7705b3eccc6b2f123af75b2e30917696a
---
 .../gcc/testsuite/gfortran.dg/implicit_pure_4.f90  | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 gcc-4.8/gcc/testsuite/gfortran.dg/implicit_pure_4.f90

(limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/implicit_pure_4.f90')

diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/implicit_pure_4.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/implicit_pure_4.f90
new file mode 100644
index 000000000..8563dd721
--- /dev/null
+++ b/gcc-4.8/gcc/testsuite/gfortran.dg/implicit_pure_4.f90
@@ -0,0 +1,22 @@
+! { dg-do compile }
+!
+! PR fortran/60543
+! PR fortran/60283
+!
+module m
+contains
+  REAL(8) FUNCTION random()
+    CALL RANDOM_NUMBER(random)
+  END FUNCTION random
+  REAL(8) FUNCTION random2()
+    block
+      block
+        block
+          CALL RANDOM_NUMBER(random2)
+        end block
+      end block
+    end block
+  END FUNCTION random2
+end module m
+
+! { dg-final { scan-module-absence "m" "IMPLICIT_PURE" } }
-- 
cgit v1.2.3