      program test
      implicit none
      write(6,*) '?? some text ??'
      end

