diff options
| author | Tobias Burnus <burnus@net-b.de> | 2006-10-08 15:21:42 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-10-08 13:21:42 +0000 |
| commit | bec93d793735ff33a75a0e77ba96e78dd4b01262 (patch) | |
| tree | 4454e84128bde146be79c1a71c6c353d05b947ae /gcc/fortran/check.c | |
| parent | 3ac25120de29ce52ab034ba79612657f8c9cdfbe (diff) | |
| download | gcc-bec93d793735ff33a75a0e77ba96e78dd4b01262.zip gcc-bec93d793735ff33a75a0e77ba96e78dd4b01262.tar.gz gcc-bec93d793735ff33a75a0e77ba96e78dd4b01262.tar.bz2 | |
re PR fortran/28585 (Fortran 2003: Support NEW_LINE intrinsic)
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.
From-SVN: r117555
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 2365822..4884265 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) |