gcc/testsuite/gfortran.dg/common_22.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/59746
   4 ! Check that symbols present in common block are properly cleaned up
   5 ! upon error.
   6 !
   7 ! Contributed by Bud Davis  <jmdavis@link.com>
   8
   9       CALL RCCFL (NVE,IR,NU3,VE (1,1,1,I))
  10       COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
  11       COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
  12 !  the PR only contained the two above.
  13 !  success is no segfaults or infinite loops.
  14 !  let's check some combinations
  15      CALL ABC (INTG)
  16      COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
  17      COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
  18      CALL DEF (NT1)
  19      COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
  20      COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
  21      CALL GHI (NRESL)
  22      COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
  23      COMMON /CCFILE/ INTG,NT1,NT2,NT3,NVM,NVE,NFRLE,NRESF,NRESL !{ dg-error "Unexpected COMMON" }
  24      END