13 lines
371 B
Fortran
13 lines
371 B
Fortran
c { dg-do run }
|
|
C The preprocessor must not mangle Hollerith constants
|
|
C which contain apostrophes.
|
|
integer i
|
|
character(4) j
|
|
data i /4hbla'/
|
|
write (j, '(4a)') i
|
|
if (j .ne. "bla'") call abort
|
|
end
|
|
|
|
! { dg-warning "Hollerith constant" "const" { target *-*-* } 6 }
|
|
! { dg-warning "Conversion" "conversion" { target *-*-* } 6 }
|