aint_anint_1.f90: Add dg-do run.
2013-01-14 Harald Anlauf <anlauf@gmx.de> * gfortran.dg/aint_anint_1.f90: Add dg-do run. * gfortran.dg/bounds_check_4.f90: Likewise. * gfortran.dg/inquire_10.f90: Likewise. * gfortran.dg/minloc_3.f90: Likewise. * gfortran.dg/minlocval_3.f90: Likewise. * gfortran.dg/module_double_reuse.f90: Likewise. * gfortran.dg/mvbits_1.f90: Likewise. * gfortran.dg/oldstyle_1.f90: Likewise. * gfortran.dg/pr20163-2.f: Likewise. * gfortran.dg/save_1.f90: Likewise. * gfortran.dg/scan_1.f90: Likewise. * gfortran.dg/select_char_1.f90: Likewise. * gfortran.dg/shape_4.f90: Likewise. * gfortran.dg/coarray_29_2.f90: Fix dg-do directive. * gfortran.dg/function_optimize_10.f90: Likewise. * gfortran.dg/gomp/appendix-a/a.11.2.f90: Likewise. * gfortran.dg/used_types_17.f90: Likewise. * gfortran.dg/used_types_18.f90: Likewise. From-SVN: r195146
This commit is contained in:
Harald Anlauf
Mikael Morin
parent
e59ec5fdb2
commit
30b2fc65b9
19 changed files with 39 additions and 5 deletions
|
|
@ -1,3 +1,24 @@
|
|||
2013-01-14 Harald Anlauf <anlauf@gmx.de>
|
||||
|
||||
* gfortran.dg/aint_anint_1.f90: Add dg-do run.
|
||||
* gfortran.dg/bounds_check_4.f90: Likewise.
|
||||
* gfortran.dg/inquire_10.f90: Likewise.
|
||||
* gfortran.dg/minloc_3.f90: Likewise.
|
||||
* gfortran.dg/minlocval_3.f90: Likewise.
|
||||
* gfortran.dg/module_double_reuse.f90: Likewise.
|
||||
* gfortran.dg/mvbits_1.f90: Likewise.
|
||||
* gfortran.dg/oldstyle_1.f90: Likewise.
|
||||
* gfortran.dg/pr20163-2.f: Likewise.
|
||||
* gfortran.dg/save_1.f90: Likewise.
|
||||
* gfortran.dg/scan_1.f90: Likewise.
|
||||
* gfortran.dg/select_char_1.f90: Likewise.
|
||||
* gfortran.dg/shape_4.f90: Likewise.
|
||||
* gfortran.dg/coarray_29_2.f90: Fix dg-do directive.
|
||||
* gfortran.dg/function_optimize_10.f90: Likewise.
|
||||
* gfortran.dg/gomp/appendix-a/a.11.2.f90: Likewise.
|
||||
* gfortran.dg/used_types_17.f90: Likewise.
|
||||
* gfortran.dg/used_types_18.f90: Likewise.
|
||||
|
||||
2013-01-13 Paul Thomas <pault@gcc.gnu.org>
|
||||
|
||||
PR fortran/54286
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
program aint_anint_1
|
||||
|
||||
implicit none
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
subroutine foo(n,x)
|
||||
implicit none
|
||||
integer, intent(in) :: n
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
! { dg-compile }
|
||||
! { dg-do compile }
|
||||
! { dg-options "-fcoarray=single" }
|
||||
|
||||
! Requires that coarray_29.f90 has been compiled before
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
! { do-do run }
|
||||
! { dg-do run }
|
||||
! PR 51858 - this used to generate wrong code.
|
||||
! Original test case by Don Simons.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
! { do-do compile }
|
||||
! { dg-do compile }
|
||||
|
||||
SUBROUTINE A11_2(AA, BB, CC, DD, EE, FF, N)
|
||||
INTEGER N
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
character(len=800) :: cwd
|
||||
integer :: unit
|
||||
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
real :: a(30), m
|
||||
real, allocatable :: c(:)
|
||||
integer :: e(30), n, ia(1)
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
real :: a(30), b(10, 10), m
|
||||
real, allocatable :: c(:), d(:, :)
|
||||
integer :: e(30), f(10, 10), n
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
! Test of fix for PR18878
|
||||
!
|
||||
! Based on example in PR by Steve Kargl
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
! PR 25577
|
||||
! MVBITS didn't work correctly for integer types wider than a C int
|
||||
! The testcase is based on the one Dale Ranta posted in the bug report
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
integer i, j /1/, g/2/, h ! { dg-warning "" "" }
|
||||
integer k, l(3) /2*2,1/ ! { dg-warning "" "" }
|
||||
real pi /3.1416/, e ! { dg-warning "" "" }
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
open(10,status="foo",err=100) ! { dg-warning "STATUS specifier in OPEN statement .* has invalid value" }
|
||||
call abort
|
||||
100 continue
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
! { dg-options "-O2 -fno-automatic" }
|
||||
subroutine foo (b)
|
||||
logical b
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
program b
|
||||
integer w
|
||||
character(len=2) s, t
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
integer function char_select (s)
|
||||
character(len=*), intent(in) :: s
|
||||
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
! { dg-do run }
|
||||
! PR 35001 - we need to return 0 for the shapes of
|
||||
! negative extents. Test case adapted from Tobias Burnus.
|
||||
program main
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
! { dg do-compile }
|
||||
! { dg-do compile }
|
||||
! Tests the fix for PR31630, in which the association of the argument
|
||||
! of 'cmp' did not work.
|
||||
!
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
! { dg do-compile }
|
||||
! { dg-do compile }
|
||||
! { dg-options "-std=f2003" }
|
||||
!
|
||||
! Fortran 2003 allowes TYPE without components
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue