R: Help with fortran standards

[Vicini Alessandro <alessandro.vicini@sitael.com>]

Hello Arjen,

unfortunately this code has been developed with CVF using its features to create dialog routines, so I need to work under CVF...
So I guess I'll need alternative solutions to procedure pointers. Thank you!

A.


Da: Arjen Markus
Inviato: venerdì 19 febbraio 2021 09:52
A: Vicini Alessandro <alessandro.vicini@sitael.com>
Cc: fortran <fortran@gcc.gnu.org>
Oggetto: Re: Help with fortran standards

Hello Allessandro,

these are fairly general questions, whereas this list is meant for specific questions on the gfortran compiler. You can post these on the Fortran newsgroup comp.lang.fortran or on the Discourse group at https://fortran-lang.discourse.group/<https://eur04.safelinks.protection.outlook.com/?url=https%3A%2F%2Ffortran-lang.discourse.group%2F&data=04%7C01%7Calessandro.vicini%40sitael.com%7C244a4f568c50447a66e208d8d4b3b53b%7Cc187ee014e4e40c8b342f82c8d699421%7C0%7C0%7C637493216470611540%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C2000&sdata=sUxITpMqFTsdWVu2HfkuJaP7iANhMP1tMdKUFu49hZc%3D&reserved=0>.

However, here is my reply:

  *   Compaq Visual Fortran has been out of support for several decades. You can use the Intel oneAPI suite as an alternative
  *   CVF may have supported the Fortran 95 standard (I do not quite know the details), but procedure pointers are a thing of Fortran 2003. So it is very unlikely CVF will ever be able to compile your program
Regards,

Arjen


Op vr 19 feb. 2021 om 09:47 schreef Vicini Alessandro via Fortran <fortran@gcc.gnu.org<mailto:fortran@gcc.gnu.org>>:

Hello, I'm not sure this is the right group for this request, but I hope I can get some help.
I have a module like the one you can see below, which I use so that I can pass subroutines names as arguments in procedure calls. I've been using this kind of modules under linux with gfortran (version 8). Now, under windows with Compaq Visual Fortran 6.6 (which should comply at least to the fortran95 standards), this same module does not compile... Is this because it is based on more recent fortran features? In this case, how would it be possible to do this with fortran 95? Thank you very much for your attention...

A.

         Module Selection_type

            Type :: Selection_procedure_type
               Procedure(Select_interface), Pointer, Nopass :: item => null()
            End Type Selection_procedure_type

            Abstract Interface
               Subroutine Select_interface(arg1,arg2)
                    Integer :: arg1
                    Integer :: arg2(2)
               End Subroutine Select_interface
            End Interface

         End Module Selection_Type