blob: 18271f91bad67fcd0338f63c2e8fe00b878700d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
! { dg-options "-std=legacy" }
!
! PR fortran/83184
!
integer n1(..) /1/
! { dg-error "Assumed-rank array.*must be a dummy argument" "" { target *-*-* } 7 }
! { dg-error "Assumed-rank variable.*actual argument" "" { target *-*-* } 7 }
end
|