! { dg-do compile } | |
! { dg-options "-fcoarray=lib" } | |
! | |
! Fix for P99818 in which wrong code caused an ICE. | |
! | |
! Contributed by Gerhard Steinmetz <gscfq@t-online.de> | |
! | |
module m | |
type t | |
integer :: a | |
contains | |
procedure :: s | |
end type | |
contains | |
subroutine s(x) | |
class(t) :: x[*] | |
end | |
end | |
program p | |
use m | |
associate (y => t(1)) | |
call y%s ! { dg-error "must be a coarray" } | |
end associate | |
end |