diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-10-27 00:57:26 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-10-27 00:57:26 +0000 |
| commit | 2bd1ffcd4a2d604b701e6463191782c3836a8bf0 (patch) | |
| tree | 0b51dc69f7301676db296db6c955eb48ddcee295 | |
| parent | 15ead8598ae07e82d293e0662f231dc8d9abcb17 (diff) | |
| download | gcc-2bd1ffcd4a2d604b701e6463191782c3836a8bf0.zip gcc-2bd1ffcd4a2d604b701e6463191782c3836a8bf0.tar.gz gcc-2bd1ffcd4a2d604b701e6463191782c3836a8bf0.tar.bz2 | |
re PR fortran/33162 (INTRINSIC functions as ACTUAL argument)
2007-10-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33162
* gfortran.dg/argument_checking_9.f90: New test.
From-SVN: r129674
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/argument_checking_9.f90 | 52 |
2 files changed, 57 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4ec601f..6e21d3f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-10-26 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/33162 + * gfortran.dg/argument_checking_9.f90: New test. + 2007-10-26 Douglas Gregor <doug.gregor@gmail.com> * g++.dg/other/pr33601.C: New. diff --git a/gcc/testsuite/gfortran.dg/argument_checking_9.f90 b/gcc/testsuite/gfortran.dg/argument_checking_9.f90 new file mode 100644 index 0000000..fd7dde3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/argument_checking_9.f90 @@ -0,0 +1,52 @@ +! { dg-do compile } +! { dg-options "-fmax-errors=40" } +! PR33162 INTRINSIC functions as ACTUAL argument +! Prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> +program double_specs + +real(kind=4) :: rr, x, y +real(kind=8) :: dr, dx, dy + +x = .5 +y = .7 +dx = .5d0 +dy = .5d0 + +r = dabs(x) ! { dg-error "must be double precision" } +r = dacos(x) ! { dg-error "must be double precision" } +r = dacosh(x) ! { dg-error "must be double precision" } +r = dasin(x) ! { dg-error "must be double precision" } +r = dasinh(x) ! { dg-error "must be double precision" } +r = datan(x) ! { dg-error "must be double precision" } +r = datanh(x) ! { dg-error "must be double precision" } +r = datan2(y, dx) ! { dg-error "must be double precision" } +r = datan2(dy, x) ! { dg-error "must be double precision" } +r = dbesj0(x) ! { dg-error "must be double precision" } +r = dbesj1(x) ! { dg-error "must be double precision" } +r = dbesy0(x) ! { dg-error "must be double precision" } +r = dbesy1(x) ! { dg-error "must be double precision" } +r = dcos(x) ! { dg-error "must be double precision" } +r = dcosh(x) ! { dg-error "must be double precision" } +r = ddim(x, dy) ! { dg-error "must be double precision" } +r = ddim(dx, y) ! { dg-error "must be double precision" } +r = derf(x) ! { dg-error "must be double precision" } +r = derfc(x) ! { dg-error "must be double precision" } +r = dexp(x) ! { dg-error "must be double precision" } +r = dgamma(x) ! { dg-error "must be double precision" } +r = dlgama(x) ! { dg-error "must be double precision" } +r = dlog(x) ! { dg-error "must be double precision" } +r = dlog10(x) ! { dg-error "must be double precision" } +r = dmod(x, dy) ! { dg-error "must be double precision" } +r = dmod(dx, y) ! { dg-error "must be double precision" } +r = dsign(x, dy) ! { dg-error "must be double precision" } +r = dsign(dx, y) ! { dg-error "must be double precision" } +r = dsin(x) ! { dg-error "must be double precision" } +r = dsinh(x) ! { dg-error "must be double precision" } +r = dsqrt(x) ! { dg-error "must be double precision" } +r = dtan(x) ! { dg-error "must be double precision" } +r = dtanh(x) ! { dg-error "must be double precision" } +dr = dprod(dx,y) ! { dg-error "must be default real" } +dr = dprod(x,dy) ! { dg-error "must be default real" } +dr = dprod(x,y) + +end program double_specs
\ No newline at end of file |