| ! { dg-do compile } | |
| ! PR fortran/29403 | |
| program p | |
| character(len=10) a, b, c | |
| integer i | |
| i = 1 | |
| print ('(I0)'), i | |
| a = '(I0,' | |
| b = 'I2,' | |
| c = 'I4)' | |
| call prn(a, b, c, i) | |
| print (1,*), i ! { dg-error "in PRINT statement" } | |
| end program p | |
| subroutine prn(a, b, c, i) | |
| integer i | |
| character(len=*) a, b, c | |
| print (a//(b//c)), i, i, i | |
| print trim(a//trim(b//c)), i, i, i | |
| end subroutine prn |