d2bcb0a129
Restrictions of IMPLICIT NONE(EXTERNAL) prohibits usage of c_associated from iso_c_binding (with explicit interface) without external definiton - relax associated check. Reviewed By: klausler Differential Revision: https://reviews.llvm.org/D120971
9 lines
194 B
Fortran
9 lines
194 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
use iso_c_binding, only: c_ptr, c_associated
|
|
implicit none(external)
|
|
type (c_ptr) :: cptr
|
|
if (.not. c_associated (cptr)) then
|
|
return
|
|
end if
|
|
end
|