Skip to content

Example is broken with gfortran 15 #49

Open
@eduardz1

Description

@eduardz1

When trying to compile with gfortran 15 I get an error in the main.f90 file

/.../tests/main.f90:16:23:

   16 |     call run_testsuite(testsuites(is)%collect, error_unit, stat)
      |                       1
Error: Interface mismatch in dummy procedure ‘collect’ at (1): ALLOCATABLE mismatch in argument '_formal_1'

With gfortran 14 it compiles and runs fine though I get some warnings

/home/eduard/.cache/CPM/test-drive/79aa74869dae0cd30b19cb906f44b4f8ba3cf291/src/testdrive.F90:368:27:

  368 |     call collect(testsuite)
      |                           ^
Warning: ‘testsuite.dim[0].ubound’ may be used uninitialized [-Wmaybe-uninitialized]
/home/eduard/.cache/CPM/test-drive/79aa74869dae0cd30b19cb906f44b4f8ba3cf291/src/testdrive.F90:365:52:

  365 |     type(unittest_type), allocatable :: testsuite(:)
      |                                                    ^
note: ‘testsuite’ declared here
/home/eduard/.cache/CPM/test-drive/79aa74869dae0cd30b19cb906f44b4f8ba3cf291/src/testdrive.F90:368:27:

  368 |     call collect(testsuite)
      |                           ^
Warning: ‘testsuite.dim[0].lbound’ may be used uninitialized [-Wmaybe-uninitialized]
/home/eduard/.cache/CPM/test-drive/79aa74869dae0cd30b19cb906f44b4f8ba3cf291/src/testdrive.F90:365:52:

  365 |     type(unittest_type), allocatable :: testsuite(:)
      |                                                    ^
note: ‘testsuite’ declared here

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions