2 ! { dg-options "-fcheck=bounds" }
4 ! PR 42804: ICE with -fcheck=bounds and type bound procedure call on array element
6 ! Contributed by Ian Harvey <ian_harvey@bigpond.com>
13 PROCEDURE :: Proc => a_proc
16 SUBROUTINE a_proc(this, stat)
17 CLASS(A), INTENT(INOUT) :: this
18 INTEGER, INTENT(OUT) :: stat
29 TYPE(A), ALLOCATABLE :: arr(:)
32 CALL arr(i)%Proc(ierr)
36 ! { dg-final { cleanup-modules "ModA" } }