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

Subversion Repositories openrisc

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

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


! { dg-do compile { target i?86-*-* x86_64-*-* } }
! { dg-require-effective-target ilp32 }
! { dg-options "-O2 -msse -ftree-vectorize" }
      subroutine cblank_cvb(a,ndim)
      character*(*) a
      character*1 blank
      data blank/' '/
      do 100 i=1,ndim
100   a(i:i)=blank
      end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile { target i?86-- x86_64-- } }`
2			`! { dg-require-effective-target ilp32 }`
3			`! { dg-options "-O2 -msse -ftree-vectorize" }`
4			`subroutine cblank_cvb(a,ndim)`
5			`character() a`
6			`character*1 blank`
7			`data blank/' '/`
8			`do 100 i=1,ndim`
9			`100 a(i:i)=blank`
10			`end`

Browse

Tools

Subversion Repositories openrisc

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