comparison gcc/testsuite/gfortran.dg/use_only_6.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! PR 52668 - there used to be a bogus warning about not using b.
3 ! Original test case by Arnaud Desitter.
4 module mm
5 integer :: a, b
6 common /mm1/ a, b
7 end module mm
8
9 subroutine aa()
10 use mm, only: a
11 implicit none
12 a = 1
13 end subroutine aa