source:
CIVL/examples/fortran/smack/array_fail.f90@
79d4f4f
| Last change on this file since 79d4f4f was e3f356c, checked in by , 5 years ago | |
|---|---|
|
|
| File size: 179 bytes | |
| Rev | Line | |
|---|---|---|
| [e3f356c] | 1 | ! @expect error |
| 2 | ||
| 3 | program main | |
| 4 | implicit none | |
| 5 | integer, dimension(1) :: array = (/ 0 /) | |
| 6 | !print *, array(1) == 3 | |
| 7 | array(1) = 3 | |
| 8 | !$CVL $assert(array(1) /= 3); | |
| 9 | end program main |
Note:
See TracBrowser
for help on using the repository browser.
