ffixed-form-1.f: Copy from g77.dg
2004-07-10 David Billinghurst (David.Billinghurst@riotinto.com) * gfortran.dg/g77/ffixed-form-1.f: Copy from g77.dg * gfortran.dg/g77/ffixed-form-2.f: Likewise * gfortran.dg/g77/ffree-form-1.f: Likewise * gfortran.dg/g77/ffree-form-2.f: Likewise * gfortran.dg/g77/ffree-form-3.f: Likewise * gfortran.dg/g77/fno-underscoring.f: Likewise * gfortran.dg/g77/funderscoring.f: Likewise * gfortran.dg/g77/pr9258.f: Likewise. Add dg-warning lines. From-SVN: r84455
This commit is contained in:
parent
a8a6b60373
commit
2c2a3d7ec5
6
gcc/testsuite/gfortran.dg/g77/ffixed-form-1.f
Normal file
6
gcc/testsuite/gfortran.dg/g77/ffixed-form-1.f
Normal file
@ -0,0 +1,6 @@
|
||||
! Test compiler flags: -ffixed-form
|
||||
! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
|
||||
!
|
||||
! { dg-do compile }
|
||||
! { dg-options "-ffixed-form" }
|
||||
end
|
12
gcc/testsuite/gfortran.dg/g77/ffixed-form-2.f
Normal file
12
gcc/testsuite/gfortran.dg/g77/ffixed-form-2.f
Normal file
@ -0,0 +1,12 @@
|
||||
! PR fortran/10843
|
||||
! Origin: Brad Davis <bdavis9659@comcast.net>
|
||||
!
|
||||
! { dg-do compile }
|
||||
! { dg-options "-ffixed-form" }
|
||||
GO TO 3
|
||||
GOTO 3
|
||||
3 CONTINUE
|
||||
GOTO = 55
|
||||
GO TO = 55
|
||||
END
|
||||
|
6
gcc/testsuite/gfortran.dg/g77/ffree-form-1.f
Normal file
6
gcc/testsuite/gfortran.dg/g77/ffree-form-1.f
Normal file
@ -0,0 +1,6 @@
|
||||
! Test compiler flags: -ffree-form
|
||||
! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
|
||||
!
|
||||
! { dg-do compile }
|
||||
! { dg-options "-ffree-form" }
|
||||
end
|
11
gcc/testsuite/gfortran.dg/g77/ffree-form-2.f
Normal file
11
gcc/testsuite/gfortran.dg/g77/ffree-form-2.f
Normal file
@ -0,0 +1,11 @@
|
||||
! PR fortran/10843
|
||||
! Origin: Brad Davis <bdavis9659@comcast.net>
|
||||
!
|
||||
! { dg-do compile }
|
||||
! { dg-options "-ffree-form" }
|
||||
GO TO 3
|
||||
GOTO 3
|
||||
3 CONTINUE
|
||||
GOTO = 55
|
||||
END
|
||||
|
20
gcc/testsuite/gfortran.dg/g77/ffree-form-3.f
Normal file
20
gcc/testsuite/gfortran.dg/g77/ffree-form-3.f
Normal file
@ -0,0 +1,20 @@
|
||||
! Test acceptance of keywords in free format
|
||||
! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
|
||||
!
|
||||
! { dg-do compile }
|
||||
! { dg-options "-ffree-form" }
|
||||
integer i, j
|
||||
i = 1
|
||||
if ( i .eq. 1 ) then
|
||||
go = 2
|
||||
endif
|
||||
if ( i .eq. 3 ) then
|
||||
i = 4
|
||||
end if
|
||||
do i = 1, 3
|
||||
j = i
|
||||
end do
|
||||
do j = 1, 3
|
||||
i = j
|
||||
enddo
|
||||
end
|
8
gcc/testsuite/gfortran.dg/g77/fno-underscoring.f
Normal file
8
gcc/testsuite/gfortran.dg/g77/fno-underscoring.f
Normal file
@ -0,0 +1,8 @@
|
||||
C Test compiler flags: -fno-underscoring
|
||||
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
|
||||
C
|
||||
C { dg-do compile }
|
||||
C { dg-options "-fno-underscoring" }
|
||||
call aaabbbccc
|
||||
end
|
||||
C { dg-final { scan-assembler-not "aaabbbccc_" } }
|
8
gcc/testsuite/gfortran.dg/g77/funderscoring.f
Normal file
8
gcc/testsuite/gfortran.dg/g77/funderscoring.f
Normal file
@ -0,0 +1,8 @@
|
||||
C Test compiler flags: -funderscoring
|
||||
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
|
||||
C
|
||||
C { dg-do compile }
|
||||
C { dg-options "-funderscoring" }
|
||||
call aaabbbccc
|
||||
end
|
||||
C { dg-final { scan-assembler "aaabbbccc_" } }
|
18
gcc/testsuite/gfortran.dg/g77/pr9258.f
Normal file
18
gcc/testsuite/gfortran.dg/g77/pr9258.f
Normal file
@ -0,0 +1,18 @@
|
||||
C Test case for PR/9258
|
||||
C Origin: kmccarty@princeton.edu
|
||||
C
|
||||
C { dg-do compile }
|
||||
SUBROUTINE FOO (B)
|
||||
|
||||
10 CALL BAR (A)
|
||||
ASSIGN 20 TO M !{ dg-warning "Obsolete: ASSIGN" "" }
|
||||
IF (100.LT.A) GOTO 10
|
||||
GOTO 40
|
||||
C
|
||||
20 IF (B.LT.ABS(A)) GOTO 10
|
||||
ASSIGN 30 TO M !{ dg-warning "Obsolete: ASSIGN" "" }
|
||||
GOTO 40
|
||||
C
|
||||
30 ASSIGN 10 TO M !{ dg-warning "Obsolete: ASSIGN" "" }
|
||||
40 GOTO M,(10,20,30) !{ dg-warning "Obsolete: Assigned GOTO" "" }
|
||||
END
|
Loading…
Reference in New Issue
Block a user