File: c-program4-d60edeb.stdout

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 (53 lines) | stat: -rw-r--r-- 1,169 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

#include <stdlib.h>
#include <stdbool.h>
#include <stdio.h>
#include <string.h>
#include <lfortran_intrinsics.h>

float func1(float a, float b);
float func2(float a, float b);



// Implementations
float func1(float a, float b)
{
    float c;
    static float saved =   2.00000000000000000e+00;
    saved = saved +   1.00000000000000000e+00;
    c = c + a + b + saved;
    return c;
}

float func2(float a, float b)
{
    float c;
    float d;
    static float saved1 =   2.00000000000000000e+00;
    static float saved2;
    saved1 = saved1 +   1.00000000000000000e+00;
    c = d + c + a + b + saved1 + saved2;
    saved2 = saved2 +   1.00000000000000000e+00;
    d = d +   3.00000000000000000e+00;
    return c;
}

int main(int argc, char* argv[])
{
    _lpython_set_argv(argc, argv);
    float x;
    float y;
    float z;
    x =   1.00000000000000000e+00;
    y =   2.00000000000000000e+00;
    z = func1(x, y);
    printf("%s%s%f\n", "6.0 == ", " ", z);
    z = func1(x, y);
    printf("%s%s%f\n", "7.0 == ", " ", z);
    z = func2(x, y);
    printf("%s%s%f\n", "6.0 == ", " ", z);
    z = func2(x, y);
    printf("%s%s%f\n", "8.0 == ", " ", z);
    return 0;
}