File: arrays_op_10.f90

package info (click to toggle)
lfortran 0.45.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 46,332 kB
  • sloc: cpp: 137,068; f90: 51,260; python: 6,444; ansic: 4,277; yacc: 2,285; fortran: 806; sh: 524; makefile: 30; javascript: 15
file content (32 lines) | stat: -rw-r--r-- 578 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
22
23
24
25
26
27
28
29
30
31
32
 
program main
    implicit none

    call compare_solutions()

contains

    subroutine compare_solutions()
        implicit none
        integer :: i
        real :: x(2)

        print *, size(solution())

        do i = 1, size(solution())
            x(i) = i
        end do

        do i = 1, 2
            print *, x(i)
            if( x(i) /= i ) error stop
        end do

    end subroutine compare_solutions

    pure function solution() result(x)
        implicit none
        real, dimension(2) :: x
        x = [1.0, 1.0]
    end function solution

end program main