Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/implicit_4.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! Verify error diagnosis for invalid combinations of IMPLICIT statements IMPLICIT NONE IMPLICIT NONE ! { dg-error "Duplicate" } END SUBROUTINE a IMPLICIT REAL(b-j) implicit none ! { dg-error "IMPLICIT NONE .type. statement at .1. following an IMPLICIT statement" } END SUBROUTINE a subroutine b implicit none implicit real(g-k) ! { dg-error "IMPLICIT statement at .1. following an IMPLICIT NONE .type. statement" } end subroutine b subroutine c implicit real(a-b) implicit integer (b-c) ! { dg-error "already" } implicit real(d-f), complex(f-g) ! { dg-error "already" } end subroutine c