brintos / llvm-project-archived public Read only

Text · 194 B · bff2cb1 Raw

9 lines · plain

1! RUN: %python %S/test_errors.py %s %flang_fc12use iso_c_binding, only: c_ptr, c_associated3implicit none(external)4type (c_ptr) :: cptr5if (.not. c_associated (cptr)) then6   return7end if8end9