Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_dummy_3.f03 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR 46161: [OOP] Invalid: Passing non-polymorphic to allocatable polymorphic dummy ! ! Contributed by Janus Weil <janus@gcc.gnu.org> implicit none type :: base end type type, extends(base) :: ext end type type(base), allocatable :: a class(base), pointer :: b class(ext), allocatable :: c call test(a) ! { dg-error "must be polymorphic" } call test(b) ! { dg-error "must be ALLOCATABLE" } call test(c) ! { dg-error "must have the same declared type" } contains subroutine test(arg) implicit none class(base), allocatable :: arg end subroutine end