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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! { dg-options "-std=f2008" }
3
!
4
! PR fortran/33197
5
!
6
! Check implementation of L2 norm (Euclidean vector norm)
7
!
8
implicit none
9
 
10
print *, norm2([1, 2]) ! { dg-error "must be REAL" }
11
print *, norm2([cmplx(1.0,2.0)]) ! { dg-error "must be REAL" }
12
print *, norm2(1.0) ! { dg-error "must be an array" }
13
print *, norm2([1.0, 2.0], dim=2) ! { dg-error "not a valid dimension index" }
14
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.