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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [dollar_edit_descriptor_3.f] - Blame information for rev 774

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


! { dg-do run }
! { dg-options "-std=gnu" }
! Test for dollar descriptor in the middle of a format
300   format(1000(a,$)) ! { dg-warning "should be the last specifier" }
      write(*,300) "gee", "gee"
      write(*,"(1000(a,$))") "foo", "bar" ! { dg-warning "should be the last specifier" }
      end
! { dg-output "^geegeefoobar$" }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=gnu" }`
3			`! Test for dollar descriptor in the middle of a format`
4			`300 format(1000(a,$)) ! { dg-warning "should be the last specifier" }`
5			`write(*,300) "gee", "gee"`
6			`write(*,"(1000(a,$))") "foo", "bar" ! { dg-warning "should be the last specifier" }`
7			`end`
8			`! { dg-output "^geegeefoobar$" }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [dollar_edit_descriptor_3.f] - Blame information for rev 774