File: c-program3-32749e4.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 (44 lines) | stat: -rw-r--r-- 751 bytes parent folder | download | duplicates (3)
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

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

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



// Implementations
float func2(float a, float b)
{
    float c;
    c = a*b;
    return c;
}

float func1(float a, float b)
{
    float c;
    c = a + b;
    c = func2(c, c);
    return c;
}

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