diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-05-16 20:20:08 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-05-16 20:20:08 +0000 |
| commit | e864c0c313944ae8498c8c2197b36038d91515cf (patch) | |
| tree | 743073fe25196bdde4735028ae08d5ee0e1fd229 /gcc | |
| parent | c03fc95db39f7eefe676d2bff9a7c99b5ec01ed9 (diff) | |
| download | gcc-e864c0c313944ae8498c8c2197b36038d91515cf.zip gcc-e864c0c313944ae8498c8c2197b36038d91515cf.tar.gz gcc-e864c0c313944ae8498c8c2197b36038d91515cf.tar.bz2 | |
[multiple changes]
2008-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/missing_parens_1.f90: Update test.
* gfortran.dg/fmt_t_7.f: Update test.
2008-05-16 Steven G. Kargl <kargls@comcast.net>
* gfortran.dg/int_3.f90: New test.
* gfortran.dg/and_or_xor.f90: New test.
From-SVN: r135441
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 12 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/and_or_xor.f90 | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_t_7.f | 32 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/int_3.f90 | 10 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/missing_parens_1.f90 | 5 |
5 files changed, 49 insertions, 17 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4b2dace..74fd380 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,4 +1,14 @@ -2008-04-16 Daniel Kraft <d@domob.eu> +2008-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/missing_parens_1.f90: Update test. + * gfortran.dg/fmt_t_7.f: Update test. + +2008-05-16 Steven G. Kargl <kargls@comcast.net> + + * gfortran.dg/int_3.f90: New test. + * gfortran.dg/and_or_xor.f90: New test. + +2008-05-16 Daniel Kraft <d@domob.eu> PR fortran/27997 * gfortran.dg/array_constructor_type_1.f03: New test diff --git a/gcc/testsuite/gfortran.dg/and_or_xor.f90 b/gcc/testsuite/gfortran.dg/and_or_xor.f90 new file mode 100644 index 0000000..412008b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/and_or_xor.f90 @@ -0,0 +1,7 @@ +! { dg-do run } +program L + if (and(.TRUE._1, .TRUE._1) .neqv. .true.) call abort + if (or(.TRUE._1, .TRUE._1) .neqv. .true.) call abort + if (xor(.TRUE._1, .TRUE._1) .neqv. .false.) call abort +end program L + diff --git a/gcc/testsuite/gfortran.dg/fmt_t_7.f b/gcc/testsuite/gfortran.dg/fmt_t_7.f index 4b8045b..baef07e 100644 --- a/gcc/testsuite/gfortran.dg/fmt_t_7.f +++ b/gcc/testsuite/gfortran.dg/fmt_t_7.f @@ -1,16 +1,16 @@ -! { dg-do run { target fd_truncate } } -! PR34974 null bytes when reverse-tabbing long records -! Test case prpared by Jerry DeLisle <jvdelisle@gcc.gnu.org> - program test - character(1) :: a, b, c - write (10,'(t50000,a,t1,a)') 'b', 'a' - close (10) - open (10, access="stream") - read (10, pos=1) a - read (10, pos=50000) b - read (10, pos=25474) c - close (10, status="delete") - if (a /= "a") call abort - if (b /= "b") call abort - if (c /= " ") call abort - end +! { dg-do run { target fd_truncate } }
+! PR34974 null bytes when reverse-tabbing long records
+! Test case prpared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+ program test
+ character(1) :: a, b, c
+ write (10,'(t50000,a,t1,a)') 'b', 'a'
+ close (10)
+ open (10, access="stream")
+ read (10, pos=1) a
+ read (10, pos=50000) b
+ read (10, pos=25474) c
+ close (10, status="delete")
+ if (a /= "a") call abort
+ if (b /= "b") call abort
+ if (c /= " ") call abort
+ end
diff --git a/gcc/testsuite/gfortran.dg/int_3.f90 b/gcc/testsuite/gfortran.dg/int_3.f90 new file mode 100644 index 0000000..689beef --- /dev/null +++ b/gcc/testsuite/gfortran.dg/int_3.f90 @@ -0,0 +1,10 @@ +! { dg-do compile } +subroutine bug1 + integer, parameter :: ik1 = 1, ik2 = 2 + integer, parameter :: i = kind(int((0.,0.), kind=ik1)) + integer, parameter :: j = kind(int((0.,0.), kind=ik2)) + integer, parameter :: k = kind(int(0., kind=ik1)) + integer, parameter :: l = kind(int(0., kind=ik2)) + integer, parameter :: m = kind(int(0, kind=ik1)) + integer, parameter :: n = kind(int(0, kind=ik2)) +end subroutine bug1 diff --git a/gcc/testsuite/gfortran.dg/missing_parens_1.f90 b/gcc/testsuite/gfortran.dg/missing_parens_1.f90 index 70c3488..e9657f9 100644 --- a/gcc/testsuite/gfortran.dg/missing_parens_1.f90 +++ b/gcc/testsuite/gfortran.dg/missing_parens_1.f90 @@ -3,6 +3,8 @@ program aa implicit none real(kind=8)::r1=0 +real(kind=8),dimension((1)::r2 ! { dg-error "Missing '\\)' in statement" } +real(kind=8),dimension(3,3)::r3 character(25) :: a a = 'I am not a )))))'')''.' if ((((((a /= "I am not a )))))')'.")))))) call abort @@ -11,4 +13,7 @@ a = "I am not a )))))"")""." if ((((((a /= "I am not a )))))"")"".")))))) call abort if (((3*r1)**2)>= 0) a = "good" if ((3*r1)**2)>= 0) a = "bad" ! { dg-error "Missing '\\(' in statement" } +r3((2,2)) = 4.3 ! { dg-error "found COMPLEX" } +do while ((.true.) ! { dg-error "Missing '\\)' in statement" } +do while (.true. ! { dg-error "Missing '\\)' in statement" } end |