program main
  implicit none
  integer :: access
  character(16) :: f

  f = 'main.f90'
  print*, 'Existance   ', access(f, ' ')
  print*, 'Permission r', access(f, 'r')
  print*, 'Permission w', access(f, 'w')
  print*, 'Permission x', access(f, 'x')
end program main