OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
David Billinghurst 2004-07-10 12:23:45 +00:00
parent a8a6b60373
commit 2c2a3d7ec5
8 changed files with 89 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/gfortran.dg/g77/ffixed-form-1.f Normal file
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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