Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/data_namelist_conflict.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do run } |
2 ! Problem report: http://gcc.gnu.org/ml/fortran/2010-05/msg00139.html | |
3 ! | |
4 module globals | |
5 implicit none | |
6 integer j | |
7 data j/1/ | |
8 end module | |
9 | |
10 program test | |
11 use globals | |
12 implicit none | |
13 character(len=80) str | |
14 integer :: i | |
15 data i/0/ | |
16 namelist /nl/i,j | |
17 open(unit=10,status='scratch') | |
18 write(10,nl) | |
19 i = 42 | |
20 j = 42 | |
21 rewind(10) | |
22 read(10,nl) | |
131 | 23 if (i /= 0 .or. j /= 1) STOP 1 |
111 | 24 close(10) |
25 end program |