gcc/testsuite/gfortran.dg/common_25.f90

   1 ! { dg-do compile }
   2 ! PR fortran/67758
   3 !
   4 ! Check the absence of ICE after emitting the error message
   5 !
   6 ! This test is  the free form variant of common_24.f.
   7
   8       REAL :: X
   9       COMMON /FMCOM / X(80 000 000)  ! { dg-error "Expected another dimension" }
  10       CALL T(XX(A))
  11       COMMON /FMCOM / XX(80 000 000) ! { dg-error "Expected another dimension" }
  12       END