diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-12 21:21:08 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-12 21:21:08 +0000 |
| commit | 719e72fb6f663ba626875c8333b6bfe289c5140e (patch) | |
| tree | a2bdf7d08832c0e14a6d1fee214ec771d5c64b09 /gcc/testsuite | |
| parent | 34b4bc5c61e6d0d43683a38f696afedf6d1770f3 (diff) | |
| download | gcc-719e72fb6f663ba626875c8333b6bfe289c5140e.tar.gz | |
re PR fortran/29600 ([F03] MINLOC and MAXLOC take an optional KIND argument)
PR fortran/29600
* intrinsic.c (add_functions): Add optional KIND argument to ACHAR.
* iresolve.c (gfc_resolve_achar): Handle the KIND argument.
* check.c (gfc_check_achar): Check for the optional KIND argument.
* simplify.c (gfc_simplify_achar): Use KIND argument.
* intrinsic.h (gfc_check_achar, gfc_simplify_achar,
gfc_resolve_achar): Adjust prototypes.
* gfortran.dg/intrinsics_kind_argument_1.f90: Add test for ACHAR
intrinsic.
From-SVN: r127385
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 | 2 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6640aee6794..b039444e0f9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2007-08-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + PR fortran/29600 + * gfortran.dg/intrinsics_kind_argument_1.f90: Add test for ACHAR + intrinsic. + +2007-08-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + PR fortran/30964 PR fortran/33054 * gfortran.dg/random_4.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 b/gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 index b02ff749aed..0a3ca079127 100644 --- a/gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 +++ b/gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 @@ -21,6 +21,8 @@ program test call check (ichar (s, k), 117) call check (ichar (s, kind=k), 117) + if (achar(107) /= achar(107,1)) call abort + call check (index (t, s, .true., k), 7) call check (index (t, s, kind=k, back=.false.), 5) |