! { dg-do compile } | |
! { dg-options "-std=f2008" } | |
! | |
! PR fortran/33197 | |
! | |
! Check implementation of PARITY | |
! | |
implicit none | |
print *, parity([real ::]) ! { dg-error "must be LOGICAL" }) | |
print *, parity([integer ::]) ! { dg-error "must be LOGICAL" } | |
print *, parity([logical ::]) | |
print *, parity(.true.) ! { dg-error "must be an array" } | |
end |