summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/dollar_sym_3.f
blob: 52ce041c09e175cb0b82c09e9333e14ee2464908 (plain)
1
2
3
4
5
6
7
8
9
10
11
! { dg-do compile }
!
! PR fortran/57895
!
! Contributed by Vittorio Zecca
!
c Segmentation fault in gfc_restore_last_undo_checkpoint
      COMMON RADE3155V62$JUTMU9L9E(3,3,3), LADE314JUTMP9         ! { dg-error "Invalid character '\\$' at .1.. Use '-fdollar-ok' to allow it as an extension" }
     +LHEDDJNTMP9L(3,3,3)                                                       
      end
! { dg-prune-output "compilation terminated" }