source: CIVL/examples/fortran/smack/compound_fail.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: 243 bytes
Line 
1! @expect error
2
3program main
4 implicit none
5 type Location
6 integer x
7 integer y
8 end type Location
9
10 type(Location) :: p
11 p = Location(2,3)
12 !print *, p%x == 3
13 !$CVL $assert(p%x /= 2)
14 !$CVL $assert(p%y == 3)
15end program main
Note: See TracBrowser for help on using the repository browser.