camfort-trace

gistfile1.txt

nushio@nuwheezy:tutorial$ cat test.f90 
program test
  implicit none

  integer :: n
  read *, n

  ! This is nushio's comment
  if (n < 3) then
     print *, "n is small"
  end if

  if (mod(n, 2) == 0) then
     print *, "n is even"
  else
     print *, "n is odd"
  end if

end program test
nushio@nuwheezy:tutorial$ ../../bin/linux/camfort units . out
CamFort 0.615 - Cambridge Fortran Infrastructure.
Inferring units for "."

./out/out/test.f90
./out/test.f90
./test.f90
./out/out/test.f90: Added 0 non-unitless annotation: 
./out/out/test.f90: checked/inferred 1 user variables
./out/test.f90: Added 0 non-unitless annotation: 
./out/test.f90: checked/inferred 1 user variables
./test.f90: Added 0 non-unitless annotation: 
./test.f90: checked/inferred 1 user variables

Writing refactored files to directory: out/
Writing out/out/out/test.f90
Writing out/out/test.f90
Writing out/test.f90
nushio@nuwheezy:tutorial$ cat out/test.f90 
program test
  implicit none

  integer, unit() :: n
  read *, n

  ! This is nushio's comment
  if (n < 3) then
     print *, "n is small"
  end if

  if (mod(n, 2) == 0) then
     print *, "n is even"
  else
     print *, "n is odd"
  end if

end program testnushio@nuwheezy:tutorial$