source:
CIVL/examples/fortran/smack/compute_fail.f90@
22f2e8e
| Last change on this file since 22f2e8e was e3f356c, checked in by , 5 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.
