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