2018-11-07 Richard Biener <rguenther@suse.de>
[official-gcc.git] / gcc / testsuite / g++.dg / other / pr31078.C
blob7f610713084de66a36139d6e2f9d179d8f4c1373
1 typedef int SLONG;
2 typedef char SCHAR;
3 typedef short SSHORT;
4 typedef char TEXT;
5 typedef long ISC_STATUS;
6 const SLONG gds_arg_string = 2;
7 const SLONG gds_sys_request = 335544373L;
8 enum jrd_blk_t
10     type_str, type_dcc, type_sbm, type_smb, type_blb, type_irb, type_jrn
12 struct blk
15 template < class RPT, SSHORT BLOCK_TYPE = 0 > class pool_alloc_rpt:public blk
18 class jrn:public pool_alloc_rpt < SCHAR, type_jrn >
20 public:ISC_STATUS * jrn_status_vector;
21   TEXT jrn_server[1];
23 typedef jrn *JRN;
24 extern void IBERR_build_status (ISC_STATUS *, ISC_STATUS, ...);
25 static void
26 error (ISC_STATUS * status_vector, JRN journal, int status, TEXT * string)
28   IBERR_build_status (status_vector, gds_sys_request, gds_arg_string, string,
29                       gds_arg_string, (journal) ? journal->jrn_server : "",
30                       0);