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 (file)
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
+