3 ! PR 45933: [4.6 regression] [OOP] ICE in gfc_add_component_ref, at fortran/class.c:77
5 ! Contributed by Mark Rashid <mmrashid@ucdavis.edu>
11 PROCEDURE :: LESS_THAN
12 GENERIC :: OPERATOR (.LT.) => LESS_THAN
15 LOGICAL FUNCTION LESS_THAN(A, B)
16 CLASS (DAT), INTENT (IN) :: A, B
17 LESS_THAN = (A%NN .LT. B%NN)
24 TYPE (DAT), POINTER :: PT
26 CLASS (NODE),POINTER :: A, B
27 PRINT *, A%PT .LT. B%PT