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

Rev	Line
[aad342c]	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.