kind_module.f90:6:2:
6 | module kind_module
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:8:2:
8 | use iso_fortran_env
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:10:2:
10 | implicit none
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:12:2:
12 | private
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:17:2:
17 | integer,parameter,public :: wp = real64 !! double precision [default]
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
kind_module.f90:20:2:
20 | end module kind_module
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
lincoa.f90:71:27:
71 | real(wp),dimension(ia,*),intent(in) :: a !! a matrix whose columns are the constraint gradients, which are
| 1
Error: GNU Extension: Symbol 'ia' is used before it is typed at (1)
lincoa.f90:1133:34:
1133 | go to (50, 60, 280), iflag
| 1
Warning: Obsolescent feature: Computed GOTO at (1)
lincoa.f90:60:35:
60 | subroutine lincoa (n, npt, m, a, ia, b, x, rhobeg, rhoend, iprint, maxfun, calfun)
| 1
Error: Symbol 'a' at (1) has no IMPLICIT type
lincoa.f90:2290:76:
2290 | call lincoa(n,npt,m,a,ia,b,x,rhobeg,rhoend,iprint,maxfun,calfun)
| 1
Error: Type mismatch in argument 'a' at (1); passed REAL(8) to UNKNOWN
lincoa.f90:156:33:
156 | sum = sum + a (i, j) * x (i)
| 1
Error: Function 'a' at (1) has no IMPLICIT type
lincoa.f90:157:35:
157 | temp = temp + a (i, j) ** 2
| 1
Error: Function 'a' at (1) has no IMPLICIT type
lincoa.f90:170:30:
170 | w (iw) = a (i, j) / temp
| 1
Error: Function 'a' at (1) has no IMPLICIT type
powellopt.f90:9:9:
9 | use lincoa_module
| 1
Fatal Error: Cannot open module file 'lincoa_module.mod' for reading at (1): No such file or directory
compilation terminated.
gfortran -std=f2018 kind_module.f90 bobyqa.f90 cobyla.f90 lincoa.f90 uobyqa.f90 newuoa.f90 powellopt.f90 tests\tests.f90 says