diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-11-14 15:35:36 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-11-14 15:35:36 +0000 |
| commit | 6fc2cbcc082208f704a903246d7241a69bc8d2e6 (patch) | |
| tree | bc89f3bb9f522be7411c82c18c7feb624bc25323 /gcc/testsuite | |
| parent | f94784f451333878769bd64ef3d8698da98763cb (diff) | |
| download | gcc-6fc2cbcc082208f704a903246d7241a69bc8d2e6.tar.gz | |
fortran/
2006-11-14 Tobias Burnus <burnus@net-b.de>
PR fortran/29657
* symbol.c (check_conflict): Add further conflicts.
testsuite/
2006-11-14 Tobias Burnus <burnus@net-b.de>
PR fortran/29657
* gfortran.dg/conflicts.f90: Add.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118812 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/conflicts.f90 | 51 |
2 files changed, 56 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9693e4da1aa..3a207cbc8dd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-11-14 Tobias Burnus <burnus@net-b.de> + + PR fortran/29657 + * gfortran.dg/conflicts.f90: Add. + 2006-11-14 Paolo Bonzini <bonzini@gnu.org> PR rtl-optimization/29798 diff --git a/gcc/testsuite/gfortran.dg/conflicts.f90 b/gcc/testsuite/gfortran.dg/conflicts.f90 new file mode 100644 index 00000000000..b1b59f4ac4c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/conflicts.f90 @@ -0,0 +1,51 @@ +! { dg-do compile } +! Check for conflicts +! PR fortran/29657 + +function f1() ! { dg-error "has no IMPLICIT type" } + implicit none + real, save :: f1 ! { dg-error "PROCEDURE attribute conflicts with SAVE attribute" } + f1 = 1.0 +end function f1 + +function f2() + implicit none + real :: f2 + save f2 ! { dg-error "PROCEDURE attribute conflicts with SAVE attribute" } + f2 = 1.0 +end function f2 + +subroutine f3() + implicit none + dimension f3(3) ! { dg-error "PROCEDURE attribute conflicts with DIMENSION attribute" } +end subroutine f3 + +subroutine f4(b) + implicit none + real :: b + entry b ! { dg-error "DUMMY attribute conflicts with ENTRY attribute" } +end subroutine f4 + +function f5(a) + implicit none + real :: a,f5 + entry a ! { dg-error "DUMMY attribute conflicts with ENTRY attribute" } + f5 = 3.4 +end function f5 + +subroutine f6(cos) + implicit none + real :: cos + intrinsic cos ! { dg-error "DUMMY attribute conflicts with INTRINSIC attribute" } +end subroutine f6 + +subroutine f7(sin) + implicit none + real :: sin + external sin +end subroutine f7 + +program test + implicit none + dimension test(3) ! { dg-error "PROGRAM attribute conflicts with DIMENSION attribute" } +end program test |