2 ! { dg-options "-fcoarray=lib" }
3 ! Check that error message is presented as long as polymorphic coarrays are
11 subroutine s(x
) ! { dg-error "Sorry, allocatable/pointer components in polymorphic \\(CLASS\\)" }
21 subroutine s(x
) ! { dg-error "Sorry, allocatable/pointer components in polymorphic \\(CLASS\\)" }
28 real, allocatable
:: a(:)
31 subroutine s(x
) ! { dg-error "Sorry, allocatable/pointer components in polymorphic \\(CLASS\\)" }
41 subroutine s(x
) ! { dg-error "Sorry, allocatable/pointer components in polymorphic \\(CLASS\\)" }