diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-06 20:39:05 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-06 20:39:05 +0000 |
| commit | bddabc7476302e1591790fe8559f9fac456c87d0 (patch) | |
| tree | e31e13d82530dd5099a7c4076aeb5babfdf98547 /gcc/testsuite/gfortran.dg/entry_4.f90 | |
| parent | fe65f0c7475b7a527cc326b6eecbe573515cef53 (diff) | |
| download | gcc-bddabc7476302e1591790fe8559f9fac456c87d0.tar.gz | |
2006-03-06 Steven G. Kargl <kargls@comcast.net>
* gfortran.dg/equiv_1.f90: Replace tab(s) with spaces.
* gfortran.dg/arrayio_1.f90: Ditto.
* gfortran.dg/pr25603.f: Ditto.
* gfortran.dg/assumed_dummy_2.f90: Ditto.
* gfortran.dg/equiv_2.f90: Ditto.
* gfortran.dg/arrayio_2.f90: Ditto.
* gfortran.dg/namelist_14.f90: Ditto.
* gfortran.dg/g77/cpp6.f: Ditto.
* gfortran.dg/g77/cpp5inc.h: Ditto.
* gfortran.dg/g77/cpp5.F: Ditto.
* gfortran.dg/g77/cpp5.h: Ditto.
* gfortran.dg/namelist_15.f90: Ditto.
* gfortran.dg/badline.f: Ditto.
* gfortran.dg/sibling_dummy_procedure_1.f90: Ditto.
* gfortran.dg/sibling_dummy_procedure_2.f90: Ditto.
* gfortran.dg/backspace_6.f: Ditto.
* gfortran.dg/altreturn_1.f90: Ditto.
* gfortran.dg/entry_4.f90: Ditto.
* gfortran.dg/implicit_5.f90: Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111790 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/entry_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/entry_4.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/entry_4.f90 b/gcc/testsuite/gfortran.dg/entry_4.f90 index 5a26c26bd4c..9a3b89a620e 100644 --- a/gcc/testsuite/gfortran.dg/entry_4.f90 +++ b/gcc/testsuite/gfortran.dg/entry_4.f90 @@ -1,5 +1,5 @@ ! { dg-do compile { target i?86-*-* x86_64-*-* } } -function f1 () result (r) ! { dg-error "can't be a POINTER" } +function f1 () result (r) ! { dg-error "can't be a POINTER" } integer, pointer :: r real e1 allocate (r) @@ -11,14 +11,14 @@ entry e1a () e1a = 13 end function function f2 () -integer, dimension (2, 7, 6) :: e2 ! { dg-error "can't be an array" } +integer, dimension (2, 7, 6) :: e2 ! { dg-error "can't be an array" } f2 = 6 return entry e2 () e2 (:, :, :) = 2 end function -integer(kind=8) function f3 () ! { dg-error "can't be of type" } -complex(kind=8) e3 ! { dg-error "can't be of type" } +integer(kind=8) function f3 () ! { dg-error "can't be of type" } +complex(kind=8) e3 ! { dg-error "can't be of type" } f3 = 1 return entry e3 () |