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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! this test checks for a non-numeric argument to an
! intrinsic function (of which ABS() is one of many).
!      { dg-do compile }
       LOGICAL Z
       CHARACTER A
       REAL R
       R = ABS(Z) !  { dg-error " must be a numeric type" }
       R = ABS(A) !  { dg-error " must be a numeric type" }
       END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! this test checks for a non-numeric argument to an`
2			`! intrinsic function (of which ABS() is one of many).`
3			`! { dg-do compile }`
4			`LOGICAL Z`
5			`CHARACTER A`
6			`REAL R`
7			`R = ABS(Z) ! { dg-error " must be a numeric type" }`
8			`R = ABS(A) ! { dg-error " must be a numeric type" }`
9			`END`

Browse

Tools

Subversion Repositories openrisc

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