Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_10.f03 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR 41800: [OOP] ICE in fold_convert_loc, at fold-const.c:2789 ! ! Contributed by Harald Anlauf <anlauf@gmx.de> module abstract_gradient implicit none private type, public, abstract :: gradient_class contains procedure, nopass :: inner_product end type contains function inner_product () class(gradient_class), pointer :: inner_product inner_product => NULL() end function end module use abstract_gradient class(gradient_class), pointer :: g_initial, ip_save ip_save => g_initial%inner_product() ! ICE end