From f4d7b52072dba04161a95a36f1574820e3339147 Mon Sep 17 00:00:00 2001
From: Andre Vehreschild <vehre@gcc.gnu.org>
Date: Thu, 28 Jan 2016 12:41:10 +0100
Subject: [PATCH] Added missing testcase of r232919.

From-SVN: r232920
---
 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.2