| ! PR 30319 - Bogus warning from -Warray-bounds during string assignment | |
| ! { dg-do compile } | |
| ! { dg-options "-O2 -Warray-bounds" } | |
| program test_bounds | |
| character(256) :: foo | |
| foo = '1234' ! { dg-bogus "\\\[-Warray-bounds" } | |
| print *, foo | |
| end program test_bounds |