Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / torture / except-2.C
blobd896937a11864dd85c2ee10c7406b75097bca0b3
1 // { dg-do compile }
2 // { dg-additional-options "-fexceptions -fnon-call-exceptions" }
3 // PR tree-optimization/116601
5 struct RefitOption {
6   char subtype;
7   int string;
8 } n;
9 void h(RefitOption);
10 void k(RefitOption *__val)
12   try {
13     *__val = RefitOption{};
14     RefitOption __trans_tmp_2 = *__val;
15     h(__trans_tmp_2);
16   }
17   catch(...){}