diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-08 13:21:42 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-08 13:21:42 +0000 |
| commit | f4b3b5f41e37956297bb1e97ca49294f8c01f05d (patch) | |
| tree | 4454e84128bde146be79c1a71c6c353d05b947ae /gcc/fortran/check.c | |
| parent | 345b1590dabf488cb8f9580f05ba066886fc2211 (diff) | |
| download | gcc-f4b3b5f41e37956297bb1e97ca49294f8c01f05d.tar.gz | |
PR fortran/28585
* intrinsic.c (add_functions): Add new_line Fortran 2003 intrinsic.
* intrinsic.h: Add gfc_simplify_new_line and gfc_check_new_line
prototypes.
* check.c (gfc_check_new_line): New function.
* simplify.c (gfc_simplify_new_line): New function.
* intrinsic.texi: Document new_line intrinsic.
* gfortran.dg/new_line.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117555 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 23658221705..4884265a329 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -1827,6 +1827,14 @@ gfc_check_nearest (gfc_expr * x, gfc_expr * s) return SUCCESS; } +try +gfc_check_new_line (gfc_expr * a) +{ + if (type_check (a, 0, BT_CHARACTER) == FAILURE) + return FAILURE; + + return SUCCESS; +} try gfc_check_null (gfc_expr * mold) |