Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/thin_pointer2.adb @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- PR ada/42253 -- Testcase by Duncan Sands <baldrick@gcc.gnu.org> -- { dg-do run } with Thin_Pointer2_Pkg; use Thin_Pointer2_Pkg; procedure Thin_Pointer2 is begin if F /= '*' then raise Program_Error; end if; end;