Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/class_wide4.adb @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do run } with Class_Wide4_Pkg; with Class_Wide4_Pkg2; procedure Class_Wide4 is D : aliased Class_Wide4_Pkg.Data_Object; O : aliased Class_Wide4_Pkg2.Object; IA : not null access Class_Wide4_Pkg.Conditional_Interface'Class := O'Access; I : Class_Wide4_Pkg.Conditional_Interface'Class renames Class_Wide4_Pkg.Conditional_Interface'Class (O); begin O.Do_Stuff; O.Do_Stuff_Access; IA.Do_Stuff; IA.Do_Stuff_Access; I.Do_Stuff; I.Do_Stuff_Access; end Class_Wide4;