| ! { dg-do compile } |
| ! { dg-options "-fcoarray=lib" } |
| ! Check that error message is presented as long as polymorphic coarrays are |
| ! not implemented. |
| |
| module maccscal |
| type t |
| real, allocatable :: a |
| end type |
| contains |
| subroutine s(x) ! { dg-error "Sorry, allocatable/pointer components in polymorphic \\(CLASS\\)" } |
| class(t) :: x[*] |
| allocate (x%a) |
| end |
| end |
| module mptrscal |
| type t |
| real, pointer :: a |
| end type |
| contains |
| subroutine s(x) ! { dg-error "Sorry, allocatable/pointer components in polymorphic \\(CLASS\\)" } |
| class(t) :: x[*] |
| allocate (x%a) |
| end |
| end |
| module mallarr |
| type t |
| real, allocatable :: a(:) |
| end type |
| contains |
| subroutine s(x) ! { dg-error "Sorry, allocatable/pointer components in polymorphic \\(CLASS\\)" } |
| class(t) :: x[*] |
| allocate (x%a(2)) |
| end |
| end |
| module mptrarr |
| type t |
| real, pointer :: a(:) |
| end type |
| contains |
| subroutine s(x) ! { dg-error "Sorry, allocatable/pointer components in polymorphic \\(CLASS\\)" } |
| class(t) :: x[*] |
| allocate (x%a(2)) |
| end |
| end |