From: vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 28 Jan 2016 11:41:10 +0000 (+0000)
Subject: Added missing testcase of r232919.
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=65de97d298499e36be02b407334db5b5ea2a7088;p=thirdparty%2Fgcc.git

Added missing testcase of r232919.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@232920 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/gfortran.dg/block_15.f08 b/gcc/testsuite/gfortran.dg/block_15.f08
new file mode 100644
index 000000000000..fd1ca5573728
--- /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
+