| ! { dg-do compile } |
| ! { dg-additional-options "-fcoarray=single" } |
| ! |
| ! PR fortran/106856 |
| ! |
| ! |
| ! |
| subroutine foo(x,y) |
| class(*), optional :: x, y |
| optional :: x ! { dg-error "Duplicate OPTIONAL attribute" } |
| target :: x |
| allocatable :: x |
| target :: x ! { dg-error "Duplicate TARGET attribute" } |
| allocatable :: x ! { dg-error "Duplicate ALLOCATABLE attribute" } |
| pointer :: y |
| contiguous :: y |
| pointer :: y ! { dg-error "Duplicate POINTER attribute" } |
| contiguous :: y ! { dg-error "Duplicate CONTIGUOUS attribute" } |
| codimension :: x[:] |
| dimension :: x(:,:) |
| dimension :: y(:,:,:) |
| codimension :: x[:] ! { dg-error "Duplicate CODIMENSION attribute" } |
| dimension :: y(:) ! { dg-error "Duplicate DIMENSION attribute" } |
| end |