[Fortran/gfortran] Enable passing tests (#102)

* [Fortran/gfortran] Enable passing tests

These tests now pass. Some tests that only pass on certain platforms,
so they are left disabled.

Author: tarunprabhu

Fortran/gfortran/regression/DisabledFiles.cmake

@@ -6,24 +6,11 @@
 #
 #===------------------------------------------------------------------------===#
 
-# There are currently no unsupported files.
 set(UNSUPPORTED_FILES "")
-
-# These tests are disabled because they trigger "not yet implemented"
-# assertions.
-file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
-  # unimplemented: allocatable components in derived type assignment
-  pr93777.f90
-
-  # unimplemented: gather rhs LEN parameters in assignment to allocatable
-  deferred_character_25.f90
-)
-
-# There are currently no skipped files.
+set(UNIMPLEMENTED_FILES "")
 set(SKIPPED_FILES "")
 
 # There tests fail when they are expected to pass.
 file(GLOB FAILING_FILES CONFIGURE_DEPENDS
   # These files fail to compile when compilation is expected to succeed.
-  malloc.f90
   malloc-example.f90)

Fortran/gfortran/regression/analyzer/DisabledFiles.cmake

@@ -6,22 +6,7 @@
 #
 #===------------------------------------------------------------------------===#
 
-# There are currently no unsupported files.
 set(UNSUPPORTED_FILES "")
-
-# These tests are disabled because they trigger a "not yet implemented"
-# assertion.
-file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
-  # unimplemented: character array expression temp with dynamic length
-  associate_58.f90
-  associate_59.f90
-)
-
-# These tests trigger internal compiler errors.
-file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
-  # error: unexpected typeless constant value
-  pointer_assign_16.f90
-)
-
-# There are currently no failing files.
+set(UNIMPLEMENTED_FILES "")
+set(SKIPPED_FILES "")
 set(FAILING_FILES "")

Fortran/gfortran/regression/asan/DisabledFiles.cmake

@@ -43,23 +43,10 @@ file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
   ff-descriptor-5.f90
   ff-descriptor-6.f90
   ff-descriptor-7.f90
-  pr103390-1.f90
-  pr103390-2.f90
-  pr103390-3.f90
-  pr103390-4.f90
-  pr103390-5.f90
-  pr103390-6.f90
-  pr103390-7.f90
-  pr103390-8.f90
-  pr103390-9.f90
 
   # unimplemented: support for polymorphic types
   c407a-1.f90
   c407b-1.f90
-
-  # unimplemented: procedure pointer arguments
-  removed-restrictions-2.f90
-  removed-restrictions-4.f90
 )
 
 # These tests are skipped because they trigger internal compiler errors.
@@ -95,10 +82,7 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   fc-out-descriptor-3.f90
   fc-out-descriptor-4.f90
   fc-out-descriptor-7.f90
-  ff-descriptor-1.f90
   ff-descriptor-2.f90
-  ff-descriptor-3.f90
-  ff-descriptor-4.f90
   optional.f90
   rank-class.f90
   section-2.f90
@@ -144,8 +128,4 @@ file(GLOB FAILING_FILES CONFIGURE_DEPENDS
   # These files are expected to fail to compile, but succeed instead.
   c516.f90
   c524a.f90
-
-  # Tests that used to be hard errors, are now warnings, need -pedantic to
-  # observe them
-  tkr.f90
 )

Fortran/gfortran/regression/c-interop/DisabledFiles.cmake

@@ -12,7 +12,6 @@ set(UNSUPPORTED_FILES "")
 # These tests trigger "not yet implemented" assertions in flang.
 file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
   # unimplemented: support for polymorphic types
-  alloc_comp_2.f90
   poly_run_3.f90
 
   # unimplemented: coarray allocation
@@ -79,7 +78,6 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   collectives_3.f90
   get_to_indexed_array_1.f90
   lib_realloc_1.f90
-  pr93671.f90
   ptr_comp_3.f08
   scalar_alloc_2.f90
 

Fortran/gfortran/regression/coarray/DisabledFiles.cmake

@@ -28,36 +28,8 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
 
 # These tests fail when they are expected to pass.
 file(GLOB FAILING_FILES CONFIGURE_DEPENDS
-  # These tests fail at runtime.
-  complex_1.f
-
   # These tests are expected to fail to compile, but compilation succeeds.
   19990218-0.f
   970625-2.f
   980615-0.f
-
-  # These tests are expected to compile, but compilation fails instead.
-  20010519-1.f
-
-  # This seems to be compiled in fixed-form even though -ffree-form is specified
-  # as a DejaGNU directive. This indicates a bug in the processing of the
-  # directives by the build system in llvm-test-suite, or a problem with flang
-  # where it does not respect the -ffree-form directive.
-  ffree-form-3.f
-
-  # This has something to do with the -ffixed-line-length-none option. Once
-  # again, it is possible that is just not being parsed correctly from the file.
-  ffixed-line-length-none.f
-
-  # This has something to do with the -ffixed-line-length-0 option. Once
-  # again, it is possible that the directive is not being passed to flang
-  # because of a bug in the directive parsing, or that flang does not respect
-  # the flag.
-  ffixed-line-length-0.f
-
-  # This has something to do with the -ffixed-line-length-0 option. Once
-  # again, it is possible that the directive is not being passed to flang
-  # because of a bug in the directive parsing, or that flang does not respect
-  # the flag.
-  ffixed-line-length-132.f
 )

Fortran/gfortran/regression/g77/DisabledFiles.cmake

@@ -11,60 +11,32 @@ set(UNSUPPORTED_FILES "")
 
 # There are currently no unimplemented files.
 file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
-  # unimplemented: CriticalConstruct implementation
-  critical.f95
-
   # unimplemented: OpenACC Atomic construct not lowered yet
   atomic-1.f90
   privatization-1-compute.f90
   privatization-1-compute-loop.f90
 
   # unimplemented: OpenACC Cache construct not lowered yet
   cache-1.f95
-  cache-2.f95
 
   # unimplemented: OpenACC Routine construct not lowered yet
   classify-routine.f95
   classify-routine-nohost.f95
   kernels-decompose-2.f95
-  orphan-reductions-1.f90
-  orphan-reductions-2.f90
   pr89773.f90
   private-explicit-routine-1.f95
   private-predetermined-routine-1.f95
   privatization-1-routine_gang.f90
   privatization-1-routine_gang-loop.f90
-  routine-4.f90
-  routine-5.f90
-  routine-8.f90
   routine-external-level-of-parallelism-1.f
-  routine-external-level-of-parallelism-2.f
   routine-level-of-parallelism-1.f90
   routine-module-mod-1.f90
   routine-multiple-directives-1.f90
-  routine-multiple-directives-2.f90
 
   # unimplemented: OpenACC Standalone Declarative construct not lowered yet
-  declare-1.f95
   declare-3.f95
-  derived-types.f90
   pr78260-2.f90
-  pr85701.f90
   pr94120-1.f90
-  pr94120-2.f90
-  pr94120-3.f90
-
-  # unimplemented: co-array address
-  coindexed-1.f90
-
-  # unimplemented: coarray in procedure interface
-  coarray_2.f90
-
-  # unimplemented: intrinsic: kind requested type: (i32) -> i32
-  ref_inquiry.f90
-
-  # unimplemented: reduction with unsupported type
-  pr77371-2.f90
 
   # unimplemented: support for polymorphic types
   derived-chartypes-1.f90
@@ -83,18 +55,10 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   array-with-dt-2.f90
   array-with-dt-3.f90
   array-with-dt-4.f90
-  array-with-dt-6.f90
   attach-descriptor.f90
-  derived-types-3.f90
   kernels-alias-4.f95
   kernels-alias.f95
 
-  # error: unsupported OpenACC operation: acc.deviceptr
-  data-clauses.f95
-
-  # error: unsupported OpenACC operation: acc.firstprivate
-  firstprivate-1.f95
-
   # error: unsupported OpenACC operation: acc.firstprivate.recipe
   default_none.f95
 
@@ -114,13 +78,9 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   fixed-3.f
   fixed-4.f
   pr85879.f90
-  tile-4.f90
   uninit-dim-clause.f95
   uninit-firstprivate-clause.f95
 
-  # error: unsupported OpenACC operation: acc.present
-  warn_truncated.f90
-
   # error: unsupported OpenACC operation: acc.private.recipe
   private-explicit-kernels-1.f95
   private-explicit-parallel-1.f95
@@ -129,19 +89,16 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   parallel-tree.f95
 
   # error: unsupported OpenACC operation: acc.reduction.recipe
-  array-reduction.f90
   combined-directives.f90
   combined_loop.f90
   loop-tree-1.f90
   modules.f95
-  multi-clause.f90
   orphan-reductions-3.f90
   pr85703.f90
   private-3.f95
   reduction-2.f95
 
   # error: unsupported OpenACC operation: acc.reduction
-  reduction-3.f95
   reduction-promotions.f90
 
   # error: unsupported OpenACC operation: acc.use_device
@@ -158,7 +115,6 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   classify-kernels-unparallelized-parloops.f95
   classify-parallel.f95
   classify-serial.f95
-  deep-copy-2.f90
   gang-static.f95
   kernels-decompose-1.f95
   kernels-loop-2.f95
@@ -173,21 +129,15 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   kernels-loops-adjacent.f95
   kernels-parallel-loop-data-enter-exit.f95
   loop-2-kernels-nested.f95
-  loop-2-parallel-3.f95
   loop-2-parallel-nested.f95
-  loop-4.f95
-  nested-parallelism.f90
   note-parallelism.f90
   pr104717.f90
-  pr72715.f90
   pr78027.f90
   pr84217.f90
-  pr93329.f90
   pr93464-2.f90
   pr93464.f90
   private-predetermined-kernels-1.f95
   private-predetermined-parallel-1.f95
-  routine-3.f90
   tile-3.f90
   tile-lowering.f95
   vector_length.f90
@@ -198,10 +148,7 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   # error: null operand found
   array-with-dt-5.f90
   finalize-1.f
-  mapping-tests-1.f90
-  mapping-tests-2.f90
   mapping-tests-3.f90
-  mapping-tests-4.f90
   update-if_present-1.f90
 
   # error: operation with block successors must terminate its parent block