Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/typebound_proc_9.f03 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do compile } ! Type-bound procedures ! Test for basic parsing errors for invalid DEFERRED. MODULE testmod IMPLICIT NONE ABSTRACT INTERFACE SUBROUTINE intf () END SUBROUTINE intf END INTERFACE TYPE not_abstract CONTAINS PROCEDURE(intf), DEFERRED, NOPASS :: proc ! { dg-error "is not ABSTRACT" } END TYPE not_abstract TYPE, ABSTRACT :: abstract_type CONTAINS PROCEDURE, DEFERRED :: p2 ! { dg-error "Interface must be specified" } PROCEDURE(intf), NOPASS :: p3 ! { dg-error "should be declared DEFERRED" } PROCEDURE(intf), DEFERRED, NON_OVERRIDABLE :: p4 ! { dg-error "cannot both" } PROCEDURE(unknown), DEFERRED :: p5 ! { dg-error "has no IMPLICIT|must be explicit" } PROCEDURE(intf), DEFERRED, DEFERRED :: p6 ! { dg-error "Duplicate DEFERRED" } PROCEDURE(intf), DEFERRED :: p6 => proc ! { dg-error "is invalid for DEFERRED" } PROCEDURE(), DEFERRED :: p7 ! { dg-error "Interface-name expected" } PROCEDURE(intf, DEFERRED) :: p8 ! { dg-error "'\\)' expected" } END TYPE abstract_type END MODULE testmod