diff options
| author | Thomas König <tkoenig@gcc.gnu.org> | 2020-04-19 13:06:22 +0200 |
|---|---|---|
| committer | Thomas König <tkoenig@gcc.gnu.org> | 2020-04-19 13:06:22 +0200 |
| commit | e91c0a35e5d1af2018c379962cbe1008788aba72 (patch) | |
| tree | d51f00bfa57e7836f3d8aaad9b5862b1d95259e2 | |
| parent | 4dc6437183aec5439b88b076315ad8f31794d24b (diff) | |
| download | gcc-e91c0a35e5d1af2018c379962cbe1008788aba72.zip gcc-e91c0a35e5d1af2018c379962cbe1008788aba72.tar.gz gcc-e91c0a35e5d1af2018c379962cbe1008788aba72.tar.bz2 | |
Commit test case for PR 57129.
2020-04-19 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/57129
* gfortran.dg/subroutine_as_type.f90: New test.
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/subroutine_as_type.f90 | 7 |
2 files changed, 13 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e874290..315a29b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,7 +1,12 @@ 2020-04-19 Thomas Koenig <tkoenig@gcc.gnu.org> + PR fortran/57129 + * gfortran.dg/subroutine_as_type.f90: New test. + +2020-04-19 Thomas Koenig <tkoenig@gcc.gnu.org> + PR fortran/93500 - * arith_divide_3.f90: New test. + * gfortran.dg/arith_divide_3.f90: New test. 2020-04-19 Jakub Jelinek <jakub@redhat.com> diff --git a/gcc/testsuite/gfortran.dg/subroutine_as_type.f90 b/gcc/testsuite/gfortran.dg/subroutine_as_type.f90 new file mode 100644 index 0000000..eb8240f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/subroutine_as_type.f90 @@ -0,0 +1,7 @@ + +subroutine t() + type t ! { dg-error "FUNCTION attribute conflicts with SUBROUTINE attribute" } + end type t ! { dg-error "Expecting END SUBROUTINE statement" } + type, extends(t) :: t2 ! { dg-error "has not been previously defined" } + end type t2 ! { dg-error "Expecting END SUBROUTINE statement" } +end |