diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2007-05-04 15:24:43 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2007-05-04 15:24:43 -0400 |
| commit | 640afd95c0529c9d951bf0e4a5e60175f598d00a (patch) | |
| tree | a9a85bb9dcfc58aafc87b2db103ade8b8b74d06c /gcc/testsuite | |
| parent | f1028b0230c00b8148713c3981d88930c04ce1b6 (diff) | |
| download | gcc-640afd95c0529c9d951bf0e4a5e60175f598d00a.zip gcc-640afd95c0529c9d951bf0e4a5e60175f598d00a.tar.gz gcc-640afd95c0529c9d951bf0e4a5e60175f598d00a.tar.bz2 | |
re PR libfortran/31760 (missing elemental applicability)
gcc/fortran:
2007-05-04 Daniel Franke <franke.daniel@gmail.com>
PR fortran/31760
* intrinsic.c (add_functions): Replaced calls to gfc_check_g77_math1
by gfc_check_fn_r to avoid checks for scalarity.
* check.c (gfc_check_besn): Removed check for scalarity.
(gfc_check_g77_math1): Removed.
* intrinsic.h (gfc_check_g77_math1): Removed.
gcc/testsuite:
2007-05-04 Daniel Franke <franke.daniel@gmail.com>
PR fortran/31760
* gfortran.dg/erf.f90: New test.
* gfortran.dg/besxy.f90: New test.
[gcc/fortran/ChangeLog was already committed in r124441 by accident]
From-SVN: r124446
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/besxy.f90 | 24 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/erf.f90 | 13 |
3 files changed, 43 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 02cb5b5..c8ea1b2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2007-05-04 Daniel Franke <franke.daniel@gmail.com> + PR fortran/31760 + * gfortran.dg/erf.f90: New test. + * gfortran.dg/besxy.f90: New test. + +2007-05-04 Daniel Franke <franke.daniel@gmail.com> + PR fortran/22359 * gfortran.dg/fseek.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/besxy.f90 b/gcc/testsuite/gfortran.dg/besxy.f90 new file mode 100644 index 0000000..5b4cbba --- /dev/null +++ b/gcc/testsuite/gfortran.dg/besxy.f90 @@ -0,0 +1,24 @@ +! { dg-do compile } +! +! Check whether BESXY functions take scalars and +! arrays as arguments (PR31760). +! +PROGRAM test_erf + REAL :: r = 0.0, ra(2) = (/ 0.0, 1.0 /) + + r = BESJ0(r) + r = BESJ1(r) + r = BESJN(0, r) + + r = BESY0(r) + r = BESY1(r) + r = BESYN(0, r) + + ra = BESJ0(ra) + ra = BESJ1(ra) + ra = BESJN(0, ra) + + ra = BESY0(ra) + ra = BESY1(ra) + ra = BESYN(0, ra) +END PROGRAM
\ No newline at end of file diff --git a/gcc/testsuite/gfortran.dg/erf.f90 b/gcc/testsuite/gfortran.dg/erf.f90 new file mode 100644 index 0000000..33d0ecc --- /dev/null +++ b/gcc/testsuite/gfortran.dg/erf.f90 @@ -0,0 +1,13 @@ +! { dg-do compile } +! +! Check whether ERF/ERFC take scalars and arrays as arguments (PR31760). +! +PROGRAM test_erf + REAL :: r = 0.0, ra(2) = (/ 0.0, 1.0 /) + + r = erf(r) + r = erfc(r) + + ra = erf(ra) + ra = erfc(ra) +END PROGRAM
\ No newline at end of file |