mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
26 lines
340 B
Fortran
26 lines
340 B
Fortran
PROGRAM MAIN
|
|
|
|
END
|
|
|
|
C comment
|
|
* comment
|
|
|
|
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
|