source:
CIVL/mods/dev.civl.com/examples/fortran/smack/compute_fail.f90@
cb4d4f4
| Last change on this file since cb4d4f4 was aad342c, checked in by , 3 years ago | |
|---|---|
|
|
| File size: 123 bytes | |
| Line | |
|---|---|
| 1 | ! @expect error |
| 2 | |
| 3 | program compute |
| 4 | integer :: x,y,z |
| 5 | x=10 |
| 6 | y=20 |
| 7 | z=x+y |
| 8 | !print *, z == 30 |
| 9 | !$CVL $assert(z /= 30) |
| 10 | end |
Note:
See TracBrowser
for help on using the repository browser.
