diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-07-31 09:09:26 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-07-31 07:09:26 +0000 |
| commit | c12690236aac5b02fbc70d5dc51fa9ee6d5aba7c (patch) | |
| tree | 789067c6e5858f5d3f73bd7d077d499c09f21fcb | |
| parent | 332e4118b919c6759eb2dd76ad78f169584a7e4a (diff) | |
| download | gcc-c12690236aac5b02fbc70d5dc51fa9ee6d5aba7c.zip gcc-c12690236aac5b02fbc70d5dc51fa9ee6d5aba7c.tar.gz gcc-c12690236aac5b02fbc70d5dc51fa9ee6d5aba7c.tar.bz2 | |
* gfortran.dg/lrshift_1.c: New file.
From-SVN: r115838
| -rw-r--r-- | gcc/testsuite/ChangeLog | 16 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/lrshift_1.c | 3 |
2 files changed, 13 insertions, 6 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b52a150..bfc82a7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2006-07-30 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + * gfortran.dg/lrshift_1.c: New file. + 2006-07-30 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/28335 @@ -11,12 +15,12 @@ 2006-07-30 Francois-Xavier Coudert <coudert@clipper.ens.fr> - * gcc/testsuite/gfortran.dg/chmod_3.f90: New test. - * gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90: New test. - * gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90: New test. - * gcc/testsuite/gfortran.dg/lrshift_1.f90: New test. - * gcc/testsuite/gfortran.dg/chmod_1.f90: New test. - * gcc/testsuite/gfortran.dg/chmod_2.f90: New test. + * gfortran.dg/chmod_3.f90: New test. + * gfortran.dg/ltime_gmtime_1.f90: New test. + * gfortran.dg/ltime_gmtime_2.f90: New test. + * gfortran.dg/lrshift_1.f90: New test. + * gfortran.dg/chmod_1.f90: New test. + * gfortran.dg/chmod_2.f90: New test. 2006-07-28 Lee Millward <lee.millward@codesourcery.com> diff --git a/gcc/testsuite/gfortran.dg/lrshift_1.c b/gcc/testsuite/gfortran.dg/lrshift_1.c new file mode 100644 index 0000000..8b45110 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/lrshift_1.c @@ -0,0 +1,3 @@ +/* Left and right shift C routines, to compare to Fortran results. */ +int c_lshift_ (int *x, int *y) { return (*x) << (*y); } +int c_rshift_ (int *x, int *y) { return (*x) >> (*y); } |