source: CIVL/examples/fortran/smack/pointer_fail.f90

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100755
File size: 174 bytes
RevLine 
[e3f356c]1! @expect error
2
3program main
4 implicit none
5 integer, pointer :: box
6 integer, target :: x = 3
7 box => x
8 !print *, box == 3
9 !$CVL $assert(box /= 3)
10end program main
Note: See TracBrowser for help on using the repository browser.