expand: Fix up expansion of VIEW_CONVERT_EXPR to BITINT_TYPE [PR117354]
[official-gcc.git] / gcc / testsuite / gfortran.dg / unlimited_polymorphic_25.f03
blob0eb9c7a76f6bde6f4b0e688e0e57b7e5ddc3de3f
1 ! { dg-do compile }
3 ! Tests the fix for PR69566, in which a boolean expression testing a
4 ! the component of a pointer did not check the pointer, resulting in
5 ! the ICE.
7 ! Contributed by Janus Weil  <janus@gcc.gnu.org>
9   print *, associated(return_pointer()) ! ICE
10 contains
11   function return_pointer()
12     class(*), pointer :: return_pointer(:)
13   end function
14 end