Context Navigation

parameter.f

main

Last change on this file was aad342c, checked in by Stephen Siegel <siegel@…>, 3 years ago

Performing huge refactor to incorporate ABC, GMC, and SARL into CIVL repo and use Java modules.

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

File size: 304 bytes

Line
1	c F77 standard Sec. 8.6:
2	c The PARAMETER statement is used to give a constant a symbolic name.
3	program p
4	integer i
5	logical t
6	real a(3)
7	parameter(i=3, t=.true., a=(/1,2,3/))
8	c$ civl assert(i .eq. 3)
9	c$ civl assert(t)
10	c$ civl assert(all(a .eq. (/1,2,3/)))
11	end program

Note: See TracBrowser for help on using the repository browser.