From: Thomas König Date: Sun, 19 Apr 2020 11:06:22 +0000 (+0200) Subject: Commit test case for PR 57129. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e91c0a35e5d1af2018c379962cbe1008788aba72;p=gcc.git Commit test case for PR 57129. 2020-04-19 Thomas Koenig PR fortran/57129 * gfortran.dg/subroutine_as_type.f90: New test. --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e8742902d12..315a29bd05f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,7 +1,12 @@ +2020-04-19 Thomas Koenig + + PR fortran/57129 + * gfortran.dg/subroutine_as_type.f90: New test. + 2020-04-19 Thomas Koenig PR fortran/93500 - * arith_divide_3.f90: New test. + * gfortran.dg/arith_divide_3.f90: New test. 2020-04-19 Jakub Jelinek 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 00000000000..eb8240fbb7b --- /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