[Fortran/gfortran] Enable tests that now pass (#245)

A number of tests now pass since several bugs in flang have been fixed and
othe features have been implemented.

Author: tarunprabhu

Fortran/gfortran/regression/DisabledFiles.cmake

@@ -9,8 +9,4 @@
 set(UNSUPPORTED_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-example.f90)
+set(FAILING_FILES "")

Fortran/gfortran/regression/analyzer/DisabledFiles.cmake

@@ -12,37 +12,15 @@ set(UNSUPPORTED_FILES "")
 # These tests trigger "not yet implemented" assertions in flang.
 file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
   # unimplemented: assumed rank in procedure interface
-  argument-association-assumed-rank-1.f90
-  argument-association-assumed-rank-2.f90
-  argument-association-assumed-rank-3.f90
-  argument-association-assumed-rank-4.f90
-  argument-association-assumed-rank-5.f90
-  argument-association-assumed-rank-6.f90
-  argument-association-assumed-rank-7.f90
-  argument-association-assumed-rank-8.f90
-  c535a-1.f90
   cf-out-descriptor-6.f90
   contiguous-1.f90
   contiguous-2.f90
   contiguous-3.f90
   fc-descriptor-6.f90
   fc-out-descriptor-6.f90
-  note-5-3.f90
-  note-5-4.f90
-  rank.f90
-  shape-bindc.f90
-  shape.f90
-  size-bindc.f90
-  size.f90
-  ubound-bindc.f90
-  ubound.f90
 
   # unimplemented: BIND(C) internal procedures
   fc-out-descriptor-5.f90
-  ff-descriptor-6.f90
-
-  # unimplemented: support for polymorphic types
-  c407a-1.f90
 )
 
 # These tests are skipped because they trigger internal compiler errors.
@@ -78,9 +56,7 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   fc-out-descriptor-3.f90
   fc-out-descriptor-4.f90
   fc-out-descriptor-7.f90
-  ff-descriptor-2.f90
   optional.f90
-  rank-class.f90
   section-2.f90
   section-2p.f90
   section-3.f90
@@ -91,8 +67,6 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   select.f90
   setpointer-errors.f90
   setpointer.f90
-  shape-poly.f90
-  size-poly.f90
   typecodes-array-basic.f90
   typecodes-array-float128.f90
   typecodes-array-int128.f90
@@ -102,7 +76,6 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   typecodes-scalar-float128.f90
   typecodes-scalar-int128.f90
   typecodes-scalar-longdouble.f90
-  ubound-poly.f90
 
   # error: '[SYM]' is an external procedure without the EXTERNAL attribute in a
   # scope with IMPLICIT NONE(EXTERNAL)
@@ -118,15 +91,8 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
 
 # These tests fail when they are expected to pass.
 file(GLOB FAILING_FILES CONFIGURE_DEPENDS
-  # These files are expected to compile, but fail to do so.
-  c535b-1.f90
-
   # These files are expected to fail to compile, but succeed instead.
   c516.f90
   c524a.f90
   c535b-3.f90
-  c535c-1.f90
-  c535c-2.f90
-  c535c-3.f90
-  c535c-4.f90
 )

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

@@ -31,5 +31,4 @@ file(GLOB FAILING_FILES CONFIGURE_DEPENDS
   # These tests are expected to fail to compile, but compilation succeeds.
   19990218-0.f
   970625-2.f
-  980615-0.f
 )

Fortran/gfortran/regression/g77/DisabledFiles.cmake

@@ -10,12 +10,8 @@
 set(UNSUPPORTED_FILES "")
 
 file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
-  # unimplemented: procedure pointers
-  atomic-10.f90
-
   # unimplemented: procedure pointer arguments
   pr44036-1.f90
-  pr44036-2.f90
 
   # unimplemented: coarray in procedure interface
   declare-simd-coarray-lib.f90
@@ -40,16 +36,10 @@ file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
   pr79154-2.f90
   pr82568.f90
   schedule-modifiers-1.f90
-  target3.f90
-  teams1.f90
 
   # unimplemented: array sections not supported for task depend
   depend-4.f90
 
-  # unimplemented: OMPD_target_data for Array Expressions or Structure
-  # Components.
-  map-5.f90
-
   # unimplemented: OpenMP Block construct clause
   pr71758.f90
   pr81887.f90
@@ -60,9 +50,7 @@ file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
 
   # unimplemented: Unhandled block directive
   pr39152.f90
-  pr69281.f90
   pr95869.f90
-  teams-4.f90
 
   # unimplemented: OpenMPDeclarativeAllocate
   allocate-pinned-1.f90
@@ -222,7 +210,6 @@ file(GLOB FAILING_FILES CONFIGURE_DEPENDS
   num-teams-1.f90
   num-teams-2.f90
   openmp-simd-7.f90
-  parallel-master-1.f90
   pr103695.f90
   pr99928-11.f90
   reduction-task-3.f90
@@ -268,7 +255,6 @@ file(GLOB FAILING_FILES CONFIGURE_DEPENDS
   loop-5.f90
 
   # expected 'TARGET UPDATE'
-  map-6.f90
   map-7.f90
   target-has-device-addr-2.f90
 
@@ -302,14 +288,6 @@ file(GLOB FAILING_FILES CONFIGURE_DEPENDS
 
   # COPYPRIVATE variable is not PRIVATE or THREADPRIVATE in outer context
   copyprivate-1.f90
-  pr26224.f
-
-  # The DEFAULT(NONE) clause requires that 'a' must be listed in a data-sharing
-  # attribute clause
-  crayptr4.f90
-
-  # Implied-shape array must be a named constant or a dummy argument
-  crayptr5.f90
 
   # Internal: no symbol found for
   declare-simd-2.f90
@@ -429,11 +407,9 @@ file(GLOB FAILING_FILES CONFIGURE_DEPENDS
   #
   canonical-loop-2.f90
   crayptr2.f90
-  map-alloc-comp-1.f90
   polymorphic-mapping-4.f90
   polymorphic-mapping-5.f90
   pr33439.f90
-  pr44036-3.f90
   pr78866-2.f90
   reduction3.f90
   sharing-3.f90
@@ -451,10 +427,8 @@ file(GLOB FAILING_FILES CONFIGURE_DEPENDS
   depobj-3.f90
   inner-loops-1.f90
   map-10.f90
-  map-11.f90
   map-12.f90
   requires-10.f90
-  target-update-1.f90
   tile-10.f90
   tile-1.f90
   tile-2.f90

Fortran/gfortran/regression/gomp/DisabledFiles.cmake

@@ -13,16 +13,6 @@ set(UNSUPPORTED_FILES "")
 set(UNIMPLEMENTED_FILES "")
 
 file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
-  #
-  # These tests fail when they should pass.
-  #
-
-  # error: COPYPRIVATE variable is not PRIVATE or THREADPRIVATE in outer
-  # context
-  a.33.1.f90
-  a.33.2.f90
-  a.33.4.f90
-
   #
   # These tests pass when they should fail.
   #

Fortran/gfortran/regression/gomp/appendix-a/DisabledFiles.cmake

@@ -50,7 +50,6 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   ieee_5.f90
   intrinsics_1.f90
   intrinsics_2.F90
-  large_4.f90
   underflow_1.f90
 
   # error: Actual argument for 'mold=' has bad type 'UNSIGNED'

Fortran/gfortran/regression/ieee/DisabledFiles.cmake

@@ -6,18 +6,7 @@
 #
 #===------------------------------------------------------------------------===#
 
-# There are currently no unsupported files.
 set(UNSUPPORTED_FILES "")
-
-# These tests are disabled because they trigger "not yet implemented"
-# assertions in flang.
-file(GLOB UNIMPLEMENTED_FILES CONFIGURE_DEPENDS
-  # not yet implemented: assumed-rank variable in procedure
-  missing_optional_dummy_8.f90
-)
-
-# There are currently no skipped files.
+set(UNIMPLEMENTED_FILES "")
 set(SKIPPED_FILES "")
-
-# There are currently no failing files.
 set(FAILING_FILES "")

Fortran/gfortran/regression/ubsan/DisabledFiles.cmake

@@ -19,9 +19,6 @@ set(SKIPPED_FILES "")
 # These tests fail when they are expected to pass.
 file(GLOB FAILING_FILES CONFIGURE_DEPENDS
   # These tests fail to compile when compilation is expected to succeed.
-  pr90681.f
-  pr97761.f90
-  pr99746.f90
   vect-8-epilogue.F90
 
   # The cause of failure of this test needs to be investigated

Fortran/gfortran/regression/vect/DisabledFiles.cmake

@@ -15,8 +15,6 @@ set(UNIMPLEMENTED_FILES "")
 # These tests are disabled because they cause internal compiler errors.
 file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
   # error: unexpected typeless constant value
-  forall_5.f90
-  forall_6.f90
   st_function.f90
 
   # --------------------------------------------------------------------------
@@ -31,9 +29,6 @@ file(GLOB SKIPPED_FILES CONFIGURE_DEPENDS
 
   # error: '[SYM]' is not a known intrinsic procedure
   specifics.f90
-
-  # conflicting debug info for argument
-  entry_5.f90
 )
 
 # These tests are disabled because they fail at runtime when they should pass.