blob: 0ea186a4d13581dbb6f9d87bb7766480d2528e17 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { dg-do compile }
program foo
implicit none
integer, allocatable :: x
integer, allocatable :: a(:)
logical a1, a2
a1 = allocated(scalar=a) ! { dg-error "Scalar entity required" }
a2 = allocated(array=x) ! { dg-error "Array entity required" }
a1 = allocated(scalar=x, array=a) ! { dg-error "Too many arguments" }
a1 = allocated(array=a, scalar=x) ! { dg-error "Too many arguments" }
end program foo
|
