File: test.fortran

package info (click to toggle)
source-highlight 3.1.8-1.2~deb9u1
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 10,224 kB
  • sloc: sh: 11,709; cpp: 10,226; ansic: 9,521; makefile: 1,902; lex: 1,200; yacc: 1,021; php: 213; perl: 211; awk: 98; erlang: 94; lisp: 90; java: 75; ruby: 69; python: 61; asm: 43; ada: 36; ml: 29; haskell: 27; xml: 23; cs: 11; sql: 8; tcl: 7; sed: 4
file content (21 lines) | stat: -rw-r--r-- 541 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
doc => parseFile("output.xml", iostat=i)
if (i/=0) then
  print*, "Could not open XML file"
  ! call goAndDoSomethingElseInstead()
  print*, "A string with \"" escaped chars"
endif
c = 1
double precision x

x = 1.234e5  ! single
x = 1.234d5  ! double
x = 1.234q5  ! quad

    x = b'1001010' ! binary
    x = o'1271530' ! octal
    x = z'235A7F0' ! hex (no idea why it's z and not x)

! 15 significant digits and range of (1e-307, 1e307)
integer, parameter :: wp = selected_real_kind(15, 307)

real(wp) :: x = 1.234e5_wp  ! working precision