source: CIVL/examples/fortran/smack/array.f90@ 3d3af8f

1.23 2.0 acw/focus-triggers main test-branch
Last change on this file since 3d3af8f was e3f356c, checked in by Wenhao Wu <wuwenhao@…>, 5 years ago

merge from branch omptrans for tacas2022

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5471 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100755
File size: 181 bytes
RevLine 
[e3f356c]1! @expect verified
2
3program 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)
9end program main
Note: See TracBrowser for help on using the repository browser.