From: Andre Vehreschild <vehre@gcc.gnu.org>
Date: Thu, 28 Jan 2016 11:41:10 +0000 (+0100)
Subject: Added missing testcase of r232919.
X-Git-Tag: upstream/12.2.0~49129
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f4d7b52072dba04161a95a36f1574820e3339147;p=platform%2Fupstream%2Fgcc.git

Added missing testcase of r232919.

From-SVN: r232920
---

diff --git a/gcc/testsuite/gfortran.dg/block_15.f08 b/gcc/testsuite/gfortran.dg/block_15.f08
new file mode 100644
index 0000000..fd1ca55
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/block_15.f08
@@ -0,0 +1,20 @@
+! { dg-do compile }
+!
+! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
+! Check fix for PR62536 works as expected.
+
+function f2 (x)
+implicit none
+  integer f2, x
+  block
+   block named ! { dg-error "Unclassifiable statement" }
+    integer a ! should be SAVEd
+    a = a + x ! should increment by y every time
+    f2 = a
+   end block named ! { dg-error "Syntax error in END BLOCK statement" }
+  end block
+  return
+endfunction
+
+end
+