! RUN: %python %S/test_errors.py %s %flang_fc1
pure subroutine puresub
  intrinsic sleep, chdir, get_command
  character(80) str
  !ERROR: Procedure 'impureexternal' referenced in pure subprogram 'puresub' must be pure too
  call impureExternal ! implicit interface
  !ERROR: Procedure 'sleep' referenced in pure subprogram 'puresub' must be pure too
  call sleep(1) ! intrinsic subroutine, debatably impure
  !ERROR: Procedure 'chdir' referenced in pure subprogram 'puresub' must be pure too
  call chdir('.') ! "dual" function/subroutine, impure
end