      subroutine foo
        print *, 'FAIL'
      end
