10 lines
252 B
FortranFixed
10 lines
252 B
FortranFixed
|
! { 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
|