diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/size_attribute.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/size_attribute.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/size_attribute.adb b/gcc/testsuite/gnat.dg/size_attribute.adb new file mode 100644 index 000000000..25642e0b0 --- /dev/null +++ b/gcc/testsuite/gnat.dg/size_attribute.adb @@ -0,0 +1,8 @@ +-- PR middle-end/35823 +-- { dg-do compile ] + +procedure Size_Attribute (Arg : in String) is + Size : constant Natural := Arg'Size; +begin + null; +end; |