22 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse %s | FileCheck %s2module m3 type t4 end type5 interface operator (==)6 module procedure equal7 end interface8 contains9 logical function equal(b1, b2)10 class(t), pointer, intent(in) :: b1, b211 equal = associated(b1, b2)12 end13end module14 15program test16 use m17 type(t), target :: target18 class(t), pointer :: p => target19 !CHECK: IF (equal(p,null(p))) STOP20 if (p == null(p)) stop21end22