forth2asm/test.forth at master · paule32/forth2asm · GitHub

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
54
55
56
57
58
59
60
c -----------------------------------------------------------------------------
c  Fortran to Pascal transpiller
c
c  (c) 2019 by Jens Kallup - non-profit Software
c  all rights reserved.
c -----------------------------------------------------------------------------

c Lines starting with c at first position, are comment lines

* this is a one-liner comment
* again as before

! this is a one liner comment , too

program HelloWorld
    parameter ( aa = 1 , bb = 'xxxxx' , p2 = pi / 2 )

    integer sdss, cc, aa
    real vv, aa

    goto 30
str = 'sdsdsd'
10
30
end

subroutine funcode()
end

program test2
    goto 12
12
134
end

subroutine makers()
end

program Test2
    Integer a,b , c,c, cc

    a = 42
    b = 21
    c = a

    goto 10
10
    goto    20
20
    goto  30
30

end

subroutine nbr (ia, na, ad, ncon, nrr, nr, rc, rk, n, rmax, mc)

   dimension ia(mc, nr), na()

*
end