gcc/testsuite/gfortran.dg/pr15129.f90

   1 ! { dg-do run }
   2 ! PR 15129: we used to share the character length between A and B in the
   3 ! subroutine.
   4 CHARACTER*10 A
   5 CHARACTER*8 B
   6 A = 'gfortran'
   7 B = 'rocks!'
   8 CALL T(A,B)
   9 contains
  10 SUBROUTINE T(A,B)
  11 CHARACTER*(*) A,B
  12 if(len(a)/=10) call abort()
  13 if(len(b)/=8) call abort()
  14 END SUBROUTINE
  15 end