gcc/testsuite/gfortran.dg/common_25.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { dg-do compile }
! PR fortran/67758
!
! Check the absence of ICE after emitting the error message
!
! This test is  the free form variant of common_24.f.

      REAL :: X
      COMMON /FMCOM / X(80 000 000)  ! { dg-error "Expected another dimension" }
      CALL T(XX(A))
      COMMON /FMCOM / XX(80 000 000) ! { dg-error "Expected another dimension" }
      END