File: test.f90

package info (click to toggle)
fparser 0.2.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,084 kB
  • sloc: python: 28,555; f90: 70; makefile: 36
file content (21 lines) | stat: -rw-r--r-- 283 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
MODULE mod1
  INTEGER :: a
  CONTAINS
  SUBROUTINE p(args)
    IMPLICIT NONE
    REAL :: args

  END SUBROUTINE p
END MODULE mod1

SUBROUTINE sub
END SUBROUTINE sub

REAL FUNCTION func(args)
  USE mod1
  func = 1
END FUNCTION func

PROGRAM test_prog
  USE mod1
END PROGRAM test_prog