Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / analyzer / dyncast-1.C
blob14acb91ffaa4189380e4991d849bd278799c9f0a
1 #include "../../gcc.dg/analyzer/analyzer-decls.h"
3 struct base
5   virtual ~base () {}
6 };
7 struct sub : public base
9   int m_field;
12 int
13 test_1 (base *p)
15   if (sub *q = dynamic_cast <sub*> (p))
16     {
17       __analyzer_dump_path (); // { dg-message "path" }
18       return q->m_field;
19     }
20   return 0;