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 | |
| Rev | Line | |
|---|---|---|
| [e3f356c] | 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.
