source:
CIVL/mods/dev.civl.abc/examples/fortran/simple/log_expr_order.f
| Last change on this file was aad342c, checked in by , 3 years ago | |
|---|---|
|
|
| File size: 191 bytes | |
| Line | |
|---|---|
| 1 | PROGRAM LOGICEXPR |
| 2 | INTEGER A(3), I |
| 3 | I = 4 |
| 4 | IF ((I.LE.3).AND.(A(I).GT.0) ) THEN |
| 5 | PRINT *,'Violation not found.' |
| 6 | END IF |
| 7 | END PROGRAM LOGICEXPR |
Note:
See TracBrowser
for help on using the repository browser.
