camfort-0.700: samples/foos/foo2.f90

subroutine bar(X)
    integer :: x
    integer :: i
    integer ::  j
    real A(0:x), B(0:x), c

    equivalence (c, i)

    common i, j

    11 c = 0.1    

    forall(i = 0:x) &
       & A(i) = i

    forall(i = 0:x) 
       A(i) = i
       A(i-1) = i
    end forall

    if (i .EQ. 0) then
      i = 0
    else
      i = 1
    end if
    
    do i = 1, x
       print '(i8, A, f0.7)', i, " ", A(i)
    enddo

    do i = 1, x
      c = c + 0.1
      j = j + 1
      A(i) = j 
      B(i) = A(i+1)
      print '(f0.7)', A(i+2)
      
    end do

    j = j + 1
    print '(f0.7)', c

end SUBROUTiNE