| c Ugly fixed form hello world program demonstrates intelligent syntax highlighting | |
| programasampleprogram | |
| implicitreal(i) | |
| if=0.0 | |
| if(sine(if).lt..00001)then Variable if | |
| print*,'Hello, old-school Fortran!' | |
| endif | |
| stop | |
| c o n t a i n s | |
| realfunctionsine(x) | |
| real,intent(in)::x | |
| sine=sin(x) | |
| endfunction | |
| endprogramasampleprogram |