1.f

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 (ss = 1,sss = 2 * 4 + pi / 2,fdfds =  'xasdasf' ,tretret = 3.1415)
    integer aaa, bb
    Real xxx, aaa, vvvv

    goto 30
    str = 'bubu'
10
30

end

subroutine funcode()
end

program tsst2
    goto 12
12
13
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