Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/complex_intrinsic_4.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-std=f2003" } ! ! PR fortran/33197 ! ! Fortran 2008 complex trigonometric functions: tan, cosh, sinh, tanh ! real :: r complex :: z r = -45.5 r = sin(r) r = cos(r) r = tan(r) r = cosh(r) r = sinh(r) r = tanh(r) z = 4.0 z = cos(z) z = sin(z) z = tan(z) ! { dg-error "Fortran 2008: COMPLEX argument" } z = cosh(z)! { dg-error "Fortran 2008: COMPLEX argument" } z = sinh(z)! { dg-error "Fortran 2008: COMPLEX argument" } z = tanh(z)! { dg-error "Fortran 2008: COMPLEX argument" } end