c: Fix up pointer types to may_alias structures [PR114493]
[official-gcc.git] / gcc / testsuite / gfortran.dg / pad_source_1.f
bloba616bba60deb3707d5215adda35d3f64726d0627
1 c { dg-do run }
2 c { dg-skip-if "non-standard options" { *-*-* } { "-ffixed-line-length*" "-f*pad-source" } }
3 character(80) a
4 a = 'abc
5 +def'
6 if (a(:61) .ne. 'abc') stop 1
7 if (a(62:) .ne. 'def') stop 2
8 end