| ! { dg-do compile } |
| ! PR fortran/107215 - ICE in gfc_real2real and gfc_complex2complex |
| ! Contributed by G.Steinmetz |
| |
| program p |
| double precision, parameter :: z = 1.0d0 |
| complex :: x(1) |
| real :: y(1) |
| x = [real :: -'1'] * z ! { dg-error "Operand of unary numeric operator" } |
| y = z * [real :: -'1'] ! { dg-error "Operand of unary numeric operator" } |
| x = [real :: -(.true.)] * z ! { dg-error "Operand of unary numeric operator" } |
| y = z * [real :: -(.true.)] ! { dg-error "Operand of unary numeric operator" } |
| x = [complex :: -'1'] * z ! { dg-error "Operand of unary numeric operator" } |
| y = z * [complex :: -'1'] ! { dg-error "Operand of unary numeric operator" } |
| x = [complex :: -(.true.)] * z ! { dg-error "Operand of unary numeric operator" } |
| y = z * [complex :: -(.true.)] ! { dg-error "Operand of unary numeric operator" } |
| end |