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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-std=f95" }
program c_by_val_3
  external bar
  real (4) :: bar
  print *, bar (%VAL(0.0)) ! { dg-error "argument list function" }
end program c_by_val_3

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=f95" }`
3			`program c_by_val_3`
4			`external bar`
5			`real (4) :: bar`
6			`print *, bar (%VAL(0.0)) ! { dg-error "argument list function" }`
7			`end program c_by_val_3`

Browse

Tools

Subversion Repositories openrisc

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