mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
26 lines
340 B
Fortran
26 lines
340 B
Fortran
c comment
|
|
* comment
|
|
|
|
program main
|
|
|
|
end
|
|
|
|
subroutine foo( i, x, b )
|
|
INTEGER i
|
|
REAL x
|
|
LOGICAL b
|
|
|
|
if( i.ne.0 ) then
|
|
call bar( -i )
|
|
end if
|
|
|
|
return
|
|
end
|
|
|
|
double complex function baz()
|
|
|
|
baz = (0.0d0,0.0d0)
|
|
|
|
return
|
|
end
|