summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/dollar_edit_descriptor_2.f
blob: 4973d87ac0e68cd2a4c5939141c3cd3914aab229 (plain)
1
2
3
4
5
6
7
8
9
! { dg-do run }
! { dg-options "-w" }
! PR25545 internal file and dollar edit descriptor.
      program main
      character*20 line
      line = '1234567890ABCDEFGHIJ'
      write (line, '(A$)') 'asdf'
      if (line.ne.'asdf') call abort()
      end