File: wasm_main_program.f90

package info (click to toggle)
lfortran 0.58.0-3
  • links: PTS, VCS
  • area: main
  • in suites:
  • size: 54,508 kB
  • sloc: cpp: 162,179; f90: 68,251; python: 17,476; ansic: 6,278; yacc: 2,334; sh: 1,317; fortran: 892; makefile: 34; javascript: 15
file content (28 lines) | stat: -rw-r--r-- 512 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
program main
    implicit none

    integer :: pi, radius, area
    real :: pi2, radius2, area2
    
    pi = 3
    radius = 5
    area = pi * sqr(radius)
    print *, area

    pi2 = 3.14
    radius2 = 5.0
    area2 = pi2 * radius2 * radius2
    print *, area2

    print *, "radius of the circle is", radius2, radius
    print *, "and its area is", area2, "cm^2"

    contains

    function sqr(x) result(r)
        integer, intent(in) :: x
        integer :: r
        r = x * x
    end function

end program