Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/same_name_2.f90 @ 120:f93fa5091070

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix conv1.c
author mir3636
date Thu, 08 Mar 2018 14:53:42 +0900
parents 04ced10e8804
children 84e7813d76e9
line wrap: on
line source

! { dg-do compile }
! Tests the fix for PR27701, in which two same name procedures
! were not diagnosed if they had no arguments.
!
! Contributed by Arjen Markus  <arjen.markus@wldelft.nl>
!
module aha
contains
subroutine aa ! { dg-error "Procedure" }
   write(*,*) 'AA'
end subroutine aa
subroutine aa ! { dg-error "is already defined" }
   write(*,*) 'BB'
end subroutine aa
end module