KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 17:50:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add FORTRAN and Forth samples.

Browse Source
This commit is contained in:
Lars Brinkhoff
2013-08-24 11:32:55 +02:00
parent dc373fb51f
commit 4cefaf2808
7 changed files with 856 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
samples/FORTRAN/sample2.f Normal file
View File

@@ -0,0 +1,25 @@
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