[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable
[official-gcc.git] / gcc / testsuite / gfortran.dg / dollar_edit_descriptor_2.f
blob437f4dfd81122d9814cad04f2aa09fce491e2179
1 ! { dg-do run }
2 ! { dg-options "-w" }
3 ! PR25545 internal file and dollar edit descriptor.
4 program main
5 character*20 line
6 line = '1234567890ABCDEFGHIJ'
7 write (line, '(A$)') 'asdf'
8 if (line.ne.'asdf') STOP 1
9 end