| ! { dg-do compile } |
| ! { dg-options "-std=legacy" } |
| ! PR fortran/67615 |
| ! |
| program foo |
| |
| implicit none |
| |
| integer i(2), j |
| real x |
| complex z |
| |
| j = 2 |
| if (j) 10, 20, 30 |
| |
| x = -1 |
| if (x) 10, 20, 30 |
| |
| z = (1,2) |
| if (z) 10, 20, 30 ! { dg-error "Arithmetic IF statement" } |
| |
| i = [1, 2] |
| if (i) 10, 20, 30 ! { dg-error "Arithmetic IF statement" } |
| |
| if ( [1] ) 10, 20, 30 ! { dg-error "Arithmetic IF statement" } |
| if ( [1, -1] ) 10, 20, 30 ! { dg-error "Arithmetic IF statement" } |
| if ( [real :: 1, -1] ) 10, 20, 30 ! { dg-error "Arithmetic IF statement" } |
| |
| 10 stop |
| 20 stop |
| 30 stop |
| |
| end program foo |