diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-12 16:45:46 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-12 16:45:46 +0000 |
| commit | 7c06916840d7f2ab77003fcd902f497504025058 (patch) | |
| tree | 23f42943c790dc9910595eb247c54e5f718debe4 /gcc/testsuite/gfortran.dg/char_result_7.f90 | |
| parent | d8bc03b61091e5de0f45e772a6c2e82db1939b25 (diff) | |
| download | gcc-7c06916840d7f2ab77003fcd902f497504025058.tar.gz | |
2007-10-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/33664
* expr.c (gfc_specification_expr): If a function is not
external, intrinsic or pure is an error. Set the symbol pure
to prevent repeat errors.
2007-10-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/33664
* gfortran.dg/impure_spec_expr_1.f90: New test.
* gfortran.dg/char_result_7.f90: Remove illegal test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129267 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/char_result_7.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_result_7.f90 | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.dg/char_result_7.f90 b/gcc/testsuite/gfortran.dg/char_result_7.f90 index a037d2b268a..7b8692f403e 100644 --- a/gcc/testsuite/gfortran.dg/char_result_7.f90 +++ b/gcc/testsuite/gfortran.dg/char_result_7.f90 @@ -16,7 +16,6 @@ program main end interface call test (f1 (double, 100), 200) - call test (f2 (double, 70), 140) call indirect (double) contains @@ -31,12 +30,6 @@ contains f1 = '' end function f1 - function f2 (fn, i) - integer :: i, fn - character (len = fn (i)) :: f2 - f2 = '' - end function f2 - subroutine indirect (fn) interface integer pure function fn (x) @@ -44,7 +37,6 @@ contains end function fn end interface call test (f1 (fn, 100), 200) - call test (f2 (fn, 70), 140) end subroutine indirect subroutine test (string, length) |