Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/select_type_31.f03 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-fcoarray=single" } ! Test the fix for PR55172. ! ! Contributed by Arjen Markus <arjen.markus@deltares.nl> ! module gn type :: ncb end type ncb type, public :: tn class(ncb), allocatable, dimension(:) :: cb end type tn contains integer function name(self) implicit none class (tn), intent(in) :: self select type (component => self%cb(i)) ! { dg-error "has no IMPLICIT type" } end select end function name end module gn ! Further issues, raised by Tobias Burnus in the course of fixing the PR module gn1 type :: ncb1 end type ncb1 type, public :: tn1 class(ncb1), allocatable, dimension(:) :: cb end type tn1 contains integer function name(self) implicit none class (tn1), intent(in) :: self select type (component => self%cb([4,7+1])) ! { dg-error "needs a temporary" } end select end function name end module gn1 module gn2 type :: ncb2 end type ncb2 type, public :: tn2 class(ncb2), allocatable :: cb[:] end type tn2 contains integer function name(self) implicit none class (tn2), intent(in) :: self select type (component => self%cb[4]) ! { dg-error "must not be coindexed" } end select end function name end module gn2