diff options
| author | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-01-28 12:41:10 +0100 |
|---|---|---|
| committer | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-01-28 12:41:10 +0100 |
| commit | f4d7b52072dba04161a95a36f1574820e3339147 (patch) | |
| tree | 0e2b89dfd72b0b97cbd148129ef192ab04aff7de | |
| parent | 874108a9050af162504c3769020d40fd498a4be1 (diff) | |
| download | gcc-f4d7b52072dba04161a95a36f1574820e3339147.zip gcc-f4d7b52072dba04161a95a36f1574820e3339147.tar.gz gcc-f4d7b52072dba04161a95a36f1574820e3339147.tar.bz2 | |
Added missing testcase of r232919.
From-SVN: r232920
| -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 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 + |