diff options
author | vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-01-28 11:41:10 +0000 |
---|---|---|
committer | vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-01-28 11:41:10 +0000 |
commit | 65de97d298499e36be02b407334db5b5ea2a7088 (patch) | |
tree | 0e2b89dfd72b0b97cbd148129ef192ab04aff7de | |
parent | cc7124a6358668c08152b1938d3f1ce8f55a8897 (diff) | |
download | gcc-65de97d298499e36be02b407334db5b5ea2a7088.tar.gz |
Added missing testcase of r232919.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@232920 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/testsuite/gfortran.dg/block_15.f08 | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/block_15.f08 b/gcc/testsuite/gfortran.dg/block_15.f08 new file mode 100644 index 00000000000..fd1ca557372 --- /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 + |