Fix issue #46: workaround some compile errors with flang-new 19.1.1

bonachea · bonachea · commit 05fc0cb1b458 · 2024-10-21T10:03:27.000-07:00
I don't really understand why this change works, but it resolves the compile
errors in my testing.  I suspect this might represent a defect in flang-new.
diff --git a/example/derived-type_diagnostic.F90 b/example/derived-type_diagnostic.F90
@@ -43,9 +43,12 @@ pure module function construct(z) result(new_stuff_t)
 
 contains
 
-  module procedure defined
+  pure module function defined(self) result(self_defined)
+    class(stuff_t), intent(in) :: self
+    logical self_defined
+
     self_defined = self%defined_
-  end procedure
+  end function
 
   module procedure construct
     new_stuff_t%z_ = z
@@ -103,12 +106,15 @@ pure module function construct(stuff) result(new_characterizable_stuff)
   
 contains
 
-  module procedure as_character
+  pure module function as_character(self) result(character_self)
+      class(characterizable_stuff_t), intent(in) :: self
+      character(len=:), allocatable :: character_self
+
     integer, parameter :: max_len=256
     character(len=max_len) untrimmed_string
     write(untrimmed_string,*) self%stuff_%z()
     character_self = trim(adjustl(untrimmed_string))
-  end procedure
+  end function
 
   module procedure construct
     new_characterizable_stuff%stuff_ = stuff
