fmt: `import` gets formatted as `import ::`
An empty import
should be formatted as import
, not import ::
. In fpm
:
lfortran fmt -i fpm_filesystem.f90
and recompiling:
$ fpm build --flag "-ffree-line-length-none"
+ gfortran -c ./src/fpm_filesystem.f90 -ffree-line-length-none -J build/gfortran_1A2AA0AAEB09A1AF/fpm -I build/gfortran_1A2AA0AAEB09A1AF/fpm -o build/gfortran_1A2AA0AAEB09A1AF/fpm/src_fpm_filesystem.f90.o
./src/fpm_filesystem.f90:292:13:
292 | import ::
| 1
Error: Expecting list of named entities at (1)
./src/fpm_filesystem.f90:293:15:
293 | type(c_ptr), intent(in), value :: dir
| 1
Error: Derived type ‘c_ptr’ at (1) is being used before it is defined
./src/fpm_filesystem.f90:294:15:
294 | type(c_ptr), intent(in), value :: pfx
| 1
Error: Derived type ‘c_ptr’ at (1) is being used before it is defined
./src/fpm_filesystem.f90:295:15:
295 | type(c_ptr) :: tmp
| 1
Error: Derived type ‘c_ptr’ at (1) is being used before it is defined
./src/fpm_filesystem.f90:298:13:
298 | import ::
| 1
Error: Expecting list of named entities at (1)
./src/fpm_filesystem.f90:299:15:
299 | type(c_ptr), value :: ptr
| 1
Error: Derived type ‘c_ptr’ at (1) is being used before it is defined
./src/fpm_filesystem.f90:302:17:
302 | c_tempfile_ptr = c_tempnam(C_NULL_PTR, C_NULL_PTR)
| 1
Error: Type mismatch in argument ‘dir’ at (1); passed TYPE(c_ptr) to REAL(4)
./src/fpm_filesystem.f90:302:17:
302 | c_tempfile_ptr = c_tempnam(C_NULL_PTR, C_NULL_PTR)
| 1
Error: Cannot convert REAL(4) to TYPE(c_ptr) at (1)
./src/fpm_filesystem.f90:305:27:
305 | call c_free(c_tempfile_ptr)
| 1
Error: Type mismatch in argument ‘ptr’ at (1); passed TYPE(c_ptr) to REAL(4)
Command failed
ERROR STOP
Error termination. Backtrace:
#0 0x10fafa4dc
#1 0x10fafb395
#2 0x10fafcb04
#3 0x10fa71ba4
#4 0x10faa67ad
#5 0x10fab34ef
#6 0x10fab570f