Initial version.

Author: rasmussn

tests/bug-reports-sf/Makefile

@@ -0,0 +1,24 @@
+SYNTAX = ../../src/syntax
+
+all : check
+
+$(SYNTAX)/Fortran.tbl :
+	cd $(SYNTAX) ; make ; cd -
+
+check : $(SYNTAX)/Fortran.tbl
+	@for file in *.f90 ; do \
+           echo "Running test $$file"; \
+           sglri -p $(SYNTAX)/Fortran.tbl -i $$file -o $$file.ast; \
+           if test $$? != 0 ; then \
+             echo $$file "		FAILED!"; \
+           fi; \
+           pp-aterm -i $$file.ast -o $$file.ast.aterm; \
+        done;
+
+junk :
+	sglri -p $(SYNTAX)/Fortran.tbl -i junk.f90 -o junk.f90.ast
+	pp-aterm -i junk.f90.ast -o junk.f90.aterm
+
+clean :
+	rm -f *.ast *.ast.aterm
+	rm -f *.o *.mod

tests/bug-reports-sf/bind_test.f90

@@ -0,0 +1,12 @@
+! types
+
+module cula_type
+    use, intrinsic :: ISO_C_BINDING
+
+    implicit none
+
+    enum, bind(C)
+        enumerator :: culaNoError, culaNotInitialized, culaNoHardware, culaInsufficientRuntime
+    end enum
+end module
+

tests/bug-reports-sf/bug-166409.f03

@@ -0,0 +1,9 @@
+! This code illustrated both bug #166409 and #173230.
+select type (p_or_c)
+class is (point)
+   print *, 'class is point'
+type is (integer(c_int))
+   print *, 'type is integer'
+end select
+
+end

tests/bug-reports-sf/bug-166411.f03

@@ -0,0 +1,4 @@
+! Taken from Note 7.44 of J3/04-007.
+view_diag => mydata(1::nr+1)      ! the diagonal of matrix
+
+end

tests/bug-reports-sf/bug-166858.f03

@@ -0,0 +1,3 @@
+call hello(i)(j,k,z)
+
+end

tests/bug-reports-sf/bug-173230.f03

@@ -0,0 +1,9 @@
+! This code illustrated both bug #166409 and #173230.
+select type (p_or_c)
+class is (point)
+   print *, 'class is point'
+type is (integer(c_int))
+   print *, 'type is integer'
+end select
+
+end

tests/bug-reports-sf/bug-173232.f03

@@ -0,0 +1,4 @@
+inte&
+&ger i
+
+end

tests/bug-reports-sf/bug-1759956.f90

@@ -0,0 +1,9 @@
+
+! Matt's bug in ac_implied_do. It turned out that the rule just 
+! didn't have an action. - Bryan R.
+
+integer :: i
+integer :: a(10)
+
+a = (/ (i,i=1,10) /)
+end

tests/bug-reports-sf/bug-1760098.f90

@@ -0,0 +1,6 @@
+subroutine iterate()
+  real :: x
+
+  x = 100.0;
+end subroutine iterate
+

tests/bug-reports-sf/bug-1763997.f

@@ -0,0 +1,5 @@
+! Pause statements are a deleted feature.
+      pause 999
+      pause 'pause stmt'
+
+      end