Entry 4804

Silly SUBROUTINE using OPTIONAL

Submitted by Mat Cross on June 8, 2010 at 5:03 p.m.
Language: Fortran. Code size: 118 bytes.

subroutine sub(a)
real, optional :: a
if (present(a)) then
   print *, 'A!'
else
   print *, 'No A'
end if
return
end

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.