| ! { dg-do compile } |
| ! PR fortran/107922 - ICE in gfc_simplify_unpack |
| ! Test error recovery when shapes of FIELD and MASK do not match |
| ! Contributed by G.Steinmetz |
| |
| program p |
| integer, parameter :: a(2) = 1 |
| integer, parameter :: d(3) = 1 |
| logical, parameter :: mask(3) = [.false.,.true.,.false.] |
| integer, parameter :: b(2) = unpack(a,mask,a) ! { dg-error "must have identical shape" } |
| integer :: c(3) = unpack(a,[.false.,.true.,.false.],a) ! { dg-error "must have identical shape" } |
| print *, unpack(a,mask,a) ! { dg-error "must have identical shape" } |
| print *, unpack(a,mask,d) ! OK |
| print *, unpack(a,mask,3) ! OK |
| end |
| |
| ! { dg-error "Cannot simplify expression" " " { target *-*-* } 12 } |