RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / pure_function2.adb
blob28f98cd3dd5fddb23b8c4cfbed5277b59f554841
1 -- { dg-do compile }
3 function Pure_Function2 (X : Integer) return Integer is
4 begin
5 return X;
6 end Pure_Function2;
8 pragma Pure_Function (Pure_Function2); -- { dg-error "pragma \"Pure_Function\" argument must be in same declarative part" }
9 pragma Pure_Function (Pure_Function2); -- { dg-error "pragma \"Pure_Function\" argument must be in same declarative part" }
10 pragma Pure_Function (Pure_Function2); -- { dg-error "pragma \"Pure_Function\" argument must be in same declarative part" }