summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/parity_2.f90
blob: 5ff11dab9d919eed65a3e7e3d521485117034073 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
! { 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