1! Copyright 2008-2020 Free Software Foundation, Inc.
2!
3! This program is free software; you can redistribute it and/or modify
4! it under the terms of the GNU General Public License as published by
5! the Free Software Foundation; either version 3 of the License, or
6! (at your option) any later version.
7!
8! This program is distributed in the hope that it will be useful,
9! but WITHOUT ANY WARRANTY; without even the implied warranty of
10! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11! GNU General Public License for more details.
12!
13! You should have received a copy of the GNU General Public License
14! along with this program.  If not, see <http://www.gnu.org/licenses/>.
15!
16! Ihis file is the Fortran source file for dynamic.exp.
17! Original file written by Jakub Jelinek <jakub@redhat.com>.
18! Modified for the GDB testcase by Jan Kratochvil <jan.kratochvil@redhat.com>.
19
20subroutine in
21
22   INTEGER*4            ix
23   REAL*4               iy2
24   REAL*8               iz
25
26   INTEGER*4            ix_x
27   REAL*4               iy_y
28   REAL*8               iz_z2
29
30   common /fo_o/ix,iy2,iz
31   common /foo/ix_x,iy_y,iz_z2
32
33   iy = 5
34   iz_z = 55
35
36   if (ix .ne. 11 .or. iy2 .ne. 22.0 .or. iz .ne. 33.0) call abort
37   if (ix_x .ne. 1 .or. iy_y .ne. 2.0 .or. iz_z2 .ne. 3.0) call abort
38
39   ix = 0					! stop-here-in
40
41end subroutine in
42
43program common_test
44
45   INTEGER*4            ix
46   REAL*4               iy
47   REAL*8               iz
48
49   INTEGER*4            ix_x
50   REAL*4               iy_y
51   REAL*8               iz_z
52
53   common /foo/ix,iy,iz
54   common /fo_o/ix_x,iy_y,iz_z
55
56   ix = 1
57   iy = 2.0
58   iz = 3.0
59
60   ix_x = 11
61   iy_y = 22.0
62   iz_z = 33.0
63
64   call in					! stop-here-out
65
66end program common_test
67