Warning, /frameworks/syntax-highlighting/autotests/folding/highlight.f.fold is written in an unsupported language. File is not indexed.
0001 * This file is an example to test the syntax highlighting file fortran-fixed.xml 0002 * (for fortran, fixed format) 0003 0004 c <-- this is a comment in the old fortran 77 style (fixed form) 0005 c In the free form file, so we shouldn't use this kind of comments! 0006 c But fortran 90 still understands fixed form, when parsing sources with 0007 c the *.f extension. 0008 0009 * this 'c' shouldn't be highlighted as a comment! 0010 c 0011 0012 * Prints the values of e ** (j * i * pi / 4) for i = 0, 1, 2, ..., 7 0013 * where j is the imaginary number sqrt(-1) 0014 0015 <beginfold id='1'>PROGRAM</beginfold id='1'> CMPLXD 0016 IMPLICIT COMPLEX(X) 0017 PARAMETER (PI = 3.141592653589793, XJ = (0, 1)) this text should be highlighted as a comment because it is after the 72th column (ignored by the compiler) 0018 <beginfold id='2'>DO</beginfold id='2'> 1, I = 0, 7 0019 X = EXP(XJ * I * PI / 4) 0020 IF (AIMAG(X).LT.0) <beginfold id='2'>THEN</beginfold id='2'> 0021 PRINT 2, 'e**(j*', I, '*pi/4) = ', ! I am an in-line comment 0022 * REAL(X), ' - j',-AIMAG(X) ! the character at the 6th column indicate a continuation line and should be highlighted as a continuation character 0023 <endfold id='2'></endfold id='2'><beginfold id='2'>ELSE</beginfold id='2'> 0024 PRINT 2, 'e**(j*', I, '*pi/4) = ', 0025 * REAL(X), ' + j', AIMAG(X) 0026 <endfold id='2'>END IF</endfold id='2'> 0027 FORMAT (A, I1, A, F10.7, A, F9.7) 0028 CONTINUE 0029 <endfold id='2'>ENDDO</endfold id='2'> 0030 STOP 0031 <endfold id='1'>END</endfold id='1'>