blob: 0e49e8e3951383ab06fbfb6c678c53876fe73136 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
/* Copyright 2020 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include <cstring>
#include <cstdlib>
class base_one
{
int num1 = 1;
int num2 = 2;
int num3 = 3;
};
class base_two
{
public:
base_two ()
{
string = strdup ("Something in C++");
}
~base_two ()
{
free (string);
}
char *string = nullptr;
float val = 3.5;
};
class derived_type : public base_one, base_two
{
public:
derived_type ()
: base_one (),
base_two ()
{
/* Nothing. */
}
private:
int xxx = 9;
float yyy = 10.5;
};
static void mixed_func_1f ();
static void mixed_func_1g ();
extern "C"
{
/* Entry point to be called from Fortran. */
void
mixed_func_1e ()
{
mixed_func_1f ();
}
/* The entry point back into Fortran. */
extern void mixed_func_1h_ ();
}
static void
mixed_func_1g (derived_type obj)
{
mixed_func_1h_ ();
}
static void
mixed_func_1f () {
derived_type obj;
mixed_func_1g (obj);
}
|
