Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/module_commons_1.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do run } |
2 ! This program tests that use associated common blocks work. | |
3 ! | |
4 ! provided by Paul Thomas - pault@gcc.gnu.org | |
5 ! | |
6 module m1 | |
7 common /x/ a | |
8 end module m1 | |
9 module m2 | |
10 common /x/ a | |
11 end module m2 | |
12 | |
13 subroutine foo () | |
14 use m2 | |
131 | 15 if (a.ne.99.0) STOP 1 |
111 | 16 end subroutine foo |
17 | |
18 program collision | |
19 use m1 | |
20 use m2, only: b=>a | |
21 b = 99.0 | |
22 call foo () | |
23 end program collision |