mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
36 lines
1.1 KiB
Fortran
36 lines
1.1 KiB
Fortran
! { dg-do compile }
|
|
! test levenshtein based spelling suggestions
|
|
implicit none
|
|
|
|
!!!!!!!!!!!!!! structure tests !!!!!!!!!!!!!!
|
|
type type1
|
|
real :: radius
|
|
integer :: i
|
|
end type type1
|
|
|
|
type type2
|
|
integer :: myint
|
|
type(type1) :: mytype
|
|
end type type2
|
|
|
|
type type3
|
|
type(type2) :: type_2
|
|
end type type3
|
|
type type4
|
|
type(type3) :: type_3
|
|
end type type4
|
|
|
|
type(type1) :: t1
|
|
t1%radiuz = .0 ! { dg-error ".radiuz. at .1. is not a member of the .type1. structure; did you mean .radius.\\?" }
|
|
t1%x = .0 ! { dg-error ".x. at .1. is not a member of the .type1. structure" }
|
|
type(type2) :: t2
|
|
t2%mytape%radius = .0 ! { dg-error ".mytape. at .1. is not a member of the .type2. structure; did you mean .mytype.\\?" }
|
|
t2%mytype%radious = .0 ! { dg-error ".radious. at .1. is not a member of the .type1. structure; did you mean .radius.\\?" }
|
|
type(type4) :: t4
|
|
t4%type_3%type_2%mytype%radium = 88.0 ! { dg-error ".radium. at .1. is not a member of the .type1. structure; did you mean .radius.\\?" }
|
|
|
|
!!!!!!!!!!!!!! symbol tests !!!!!!!!!!!!!!
|
|
integer :: iarg1
|
|
iarg2 = 1 ! { dg-error "Symbol .iarg2. at .1. has no IMPLICIT type; did you mean .iarg1.\\?" }
|
|
end
|