1! RUN: %python %S/test_errors.py %s %flang_fc1 2use iso_c_binding, only: c_ptr, c_associated 3implicit none(external) 4type (c_ptr) :: cptr 5if (.not. c_associated (cptr)) then 6 return 7end if 8end 9