URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [write_fmt_trim.f90] - Blame information for rev 708

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! PR30200 write(*,myfmt="(1X,a,'xyz')") "A"  prints  Az' instead of Axyz
! Test case from PR, submitted by 
program main
  character (len=20) format
  format = "(1X,a,'xyz')"
  write(*,fmt=trim(format)) "A"  ! Problem arose when trim was included here
end
! { dg-output " Axyz" }
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR30200 write(*,myfmt="(1X,a,'xyz')") "A" prints Az' instead of Axyz`
3			`! Test case from PR, submitted by`
4			`program main`
5			`character (len=20) format`
6			`format = "(1X,a,'xyz')"`
7			`write(*,fmt=trim(format)) "A" ! Problem arose when trim was included here`
8			`end`
9			`! { dg-output " Axyz" }`
10

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [write_fmt_trim.f90] - Blame information for rev 708