|
111
|
1 ! { dg-do compile }
|
|
|
2 ! { dg-options "-fcoarray=single" }
|
|
|
3 !
|
|
|
4 ! PR fortran/48820
|
|
|
5 !
|
|
|
6 ! Assumed-rank constraint checks and other diagnostics
|
|
|
7 !
|
|
|
8
|
|
|
9 subroutine foo(x) ! { dg-error "Assumed-type variable x at .1. may not have the INTENT.OUT. attribute" }
|
|
|
10 type(*), intent(out) :: x
|
|
|
11 end subroutine
|
|
|
12
|
|
|
13 subroutine bar(x)
|
|
|
14 integer, intent(out) :: x(..)
|
|
|
15 end subroutine bar
|
|
|
16
|
|
|
17 subroutine foo3(y)
|
|
|
18 integer :: y(..)
|
|
|
19 y = 7 ! { dg-error "Assumed-rank variable y at .1. may only be used as actual argument" }
|
|
|
20 print *, y + 10 ! { dg-error "Assumed-rank variable y at .1. may only be used as actual argument" }
|
|
|
21 print *, y ! { dg-error "Assumed-rank variable y at .1. may only be used as actual argument" }
|
|
|
22 end subroutine
|
|
|
23
|
|
|
24 subroutine foo2(x, y)
|
|
|
25 integer :: x(..), y(..)
|
|
|
26 call valid3(x(:)) ! { dg-error "Assumed-rank variable x at .1. shall not have a subobject reference" }
|
|
|
27 contains
|
|
|
28 subroutine valid3(y)
|
|
|
29 integer :: y(..)
|
|
|
30 end subroutine
|
|
|
31 end subroutine
|
|
|
32
|
|
|
33 subroutine foo4(x)
|
|
|
34 integer, codimension[*] :: x(..) ! { dg-error "The assumed-rank array at .1. shall not have a codimension" }
|
|
|
35 end subroutine
|
|
|
36
|
|
|
37 subroutine foo5(y) ! { dg-error "may not have the VALUE or CODIMENSION attribute" }
|
|
|
38 integer :: y(..)[*]
|
|
|
39 end subroutine
|
