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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [verify_2.f90] - Blame information for rev 149

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


! { dg-do run }
program verify_2
  character(len=3) s1, s2
  s1 = 'abc'
  s2 = ''
  if (verify('ab', '') /= 1) call abort
  if (verify(s1, s2)   /= 1) call abort
  if (verify('abc', '', .true.) /= 3) call abort
  if (verify(s1, s2, .true.) /= 3) call abort
end program verify_2
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`program verify_2`
3			`character(len=3) s1, s2`
4			`s1 = 'abc'`
5			`s2 = ''`
6			`if (verify('ab', '') /= 1) call abort`
7			`if (verify(s1, s2) /= 1) call abort`
8			`if (verify('abc', '', .true.) /= 3) call abort`
9			`if (verify(s1, s2, .true.) /= 3) call abort`
10			`end program verify_2`
11

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [verify_2.f90] - Blame information for rev 149