blob: eb29ad51c85b329258d0f39959c20d9eff535244 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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
|