| ! { dg-do compile } |
| ! { dg-options "-fcoarray=single" } |
| ! |
| ! Procedures with dummy arguments that are coarrays or polymorphic |
| ! must have an explicit interface in the calling routine. |
| ! |
| |
| MODULE classtype |
| type :: t |
| integer :: comp |
| end type |
| END MODULE |
| |
| PROGRAM main |
| USE classtype |
| CLASS(t), POINTER :: tt |
| |
| INTEGER :: coarr[*] |
| |
| CALL coarray(coarr) ! { dg-error "Explicit interface required" } |
| CALL polymorph(tt) ! { dg-error "Explicit interface required" } |
| END PROGRAM |
| |
| SUBROUTINE coarray(a) |
| INTEGER :: a[*] |
| END SUBROUTINE |
| |
| SUBROUTINE polymorph(b) |
| USE classtype |
| CLASS(t) :: b |
| END SUBROUTINE |