From 65de97d298499e36be02b407334db5b5ea2a7088 Mon Sep 17 00:00:00 2001
From: vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 28 Jan 2016 11:41:10 +0000
Subject: [PATCH] Added missing testcase of r232919.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@232920 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/gfortran.dg/block_15.f08 | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/block_15.f08

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
+
-- 
2.47.3