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

gcc/testsuite/gfortran.dg/g77/ffixed-form-1.f

+! Test compiler flags: -ffixed-form
+! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+!
+! { dg-do compile }
+! { dg-options "-ffixed-form" }
+      end

gcc/testsuite/gfortran.dg/g77/ffixed-form-2.f

+! 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
+

gcc/testsuite/gfortran.dg/g77/ffree-form-1.f

+! Test compiler flags: -ffree-form
+! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+!
+! { dg-do compile }
+! { dg-options "-ffree-form" }
+end

gcc/testsuite/gfortran.dg/g77/ffree-form-2.f

+! 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
+

gcc/testsuite/gfortran.dg/g77/ffree-form-3.f

+! 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

gcc/testsuite/gfortran.dg/g77/fno-underscoring.f

+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_" } }

gcc/testsuite/gfortran.dg/g77/funderscoring.f

+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_" } }

gcc/testsuite/gfortran.dg/g77/pr9258.f

+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