PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / pure-1.c
blobf365c8dae3756beeb14c39bc866d46b6154a1eda
1 /* Regression test for PR middle-end/23584 */
2 /* Verify that dereferencing a volatile element in a struct causes
3 the function not be pure. */
5 /* { dg-do compile } */
6 /* { dg-options "-O1 -fdump-ipa-pure-const" } */
8 struct test_a { volatile int a; };
10 int func_a(struct test_a *a)
12 return a->a;
15 /* { dg-final { scan-ipa-dump-not "found to be pure: func_a" "pure-const" } } */
16 /* { dg-final { cleanup-ipa-dump "pure-const" } } */