3 ! Test the fix for PR79072 comment #12. A description of the problem
4 ! is to be found in class_result_5.f90.
6 ! Contributed by Neil Carlson <neil.n.carlson@gmail.com>
8 character(3), target
:: a
= 'foo'
12 type is (character(*))
13 if (a
.ne
. "bar") STOP 1
17 class(*), pointer :: ptr
20 type is (character(*))