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